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SUMS FINAL REPORT 
CONTRACT NASI -17399 

ATTACHMENT C 

REPORT FLIGHT STS 40 

The SUMS was flown on Shuttle Flight STS 40 in June 1991. Columbia was 
launched on June 5, 1991, from Kennedy Space Center (KSC) and landed at Edwards 
Air Force Base, California on June 14, 1991. 

This flight failed to produce science data due to water in the inlet system. The test 
and analysis reports are part of this attachment. 
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Date: 

September 13, 1991 

From: 

Edwin W. Hinson 

To: 

Mr. Robert C. Blanchard 
AB/SSD 

Langley Research Center 

Subject: 

SUMS STS-40 Flight Results 


Attached is a report on the results and conclusions from 
reduction and analysis of SUMS STS-40 flight data. This flight 
failed to produce science data due to the presence of liquid water 
in the inlet tubing. This report closes the SUMS STS-40 analysis 
activity. 

cc: Mr. Roy J. Duckett 

SUMS Project Engineer 
Vigjan, Inc. 

30 Research Drive 
Hampton, VA 23666 


1577 Spring Hill Rood 
Suite 500 
Vienna, VA 22182 
(703) 827-6600 


7601 Ora Glenn Dr. 
Suites 100 and 300 
Greenbeft, MD 20770 
(301)513-1600 

(301) 513-7700 


4400 Forbes Btvd. 
Lanham, MD 20706 
(301) 794-5000 


109 Massachusetts Ave. 
Lexington . M A 02173 
(617) 862-0405 


200 Decadon Drive 
Suite 120 

Egg Harbour Township, NJ 08232 


SUMS STS-40 RESULTS 


Initial inspection of the SUMS channel 47 and 48 data words 
during descent showed no science data. These channels contained 
only instrument status "fill words having constant decimal values 
of 173 and 1 19 for channels 47 and 48, respectively. These values 
correspond to binary bit patterns which give the following 
instrument status: 


Parameter 

Condition 

ion pump current 

high 

ion pump power 

off 

UAMS power 

off 

inlet pressure 

ok 

internal pressure 

ok 

program error 

none 

processor halt 

halt 

buffer overflow 

ok 

decode 

searching 

UAMS reset 

release 

system reset 

operate 

protection valve 

closed 

range valve 

closed 

inlet valve 

closed 


The indicated status is consistent with an internal overpressure or 
with a malfunction which produces an ion pump overcurrent 
condition, followed by the normal flight software response which 
turns the ion pump off, closes all valves, and executes the processor 
halt instruction. This state would be maintained until removal and 
subsequent reapplication of SUMS power at which time a power on 
reset would be attempted. 

Initial inspection of the on-orbit SUMS data showed the same 
status as the descent data except the UAMS power status was on 
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rather than off. This result is consistent with the different 
command sequences issued during the two operating periods; i.e., 
UAMS power was applied by stored command during the on-orbit 
sequence and by SUMS flight software command during descent. 

Further analysis of the STS-40 data was based on the 
assumption that the PCM channel 47 and 48 data was either 
incorrect as a result of a data system hardware malfunction or that 
the data was correct and reflected either a malfunction of the ion 
pump or the presence of an abnormally high pressure in the UAMS 
which would cause an ion pump over-current condition. 

Information with which to proceed with the analysis was available 
from the SUMS analog engineering data in PCM channel 49, from 
the SEADS pressure transducer mounted on SUMS and tied to 
channels 50 and 5 1 , and from postflight tests of the SUMS flight 
hardware. 

The fact that the SUMS status obtained from the fill words in 
channels 47 and 48 shows different values for on-orbit and descent 
sequences tends to discount the possibility of a data system 
malfunction, especially since the status is consistent with the 
known commanding of the instrument for the two sequences. 
Further proof that the instrument and data system were operating 
normally was found in the ion pump current monitor in channel 49 
and in the measurements from the SEADS pressure transducer 
mounted at the SUMS inlet port. The ion pump current monitor 
digital output when ion pump power is off is either a one or two, 
which is the observed results from STS-40 for both the on-orbit and 
descent sequences. At a time during descent, at which the orbiter is 
estimated to be about 90 km altitude, the SEADS pressure 
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transducer starts to rise from a prior background level of 
approximately 2 torr as shown in Fig. 1 . The rise occurs at the 
expected time, is of the nature expected, and is not accompanied by 
the corresponding rise in the ion pump current monitor output that 
would occur if ion pump power were on. The 2 torr constant level 
observed on-orbit and up to 54700 sec during descent is totally 
unexpected and represents a very large pressure compared with 
SUMS operating range of 5x10" 5 to 0.5 torr. (Note: the SUMS STS- 
35 operation did not show a similar high gas pressure in the inlet 

system.) 

At this point, the suspected scenario for SUMS operation 
during STS-40 was as follows: (1) the instrument was operating 
normally, (2) after power up and initialization, the flight software 
checked external pressure in the safe range (less than 45 torr), (3) 
all valves were opened, (4) ion pump power was applied, (5) flight s/w 
detected ion pump over-current, (6) all valves were closed, and (7) 
the processor halt instruction was executed. This sequence would 
result from an attempt to operate SUMS with the range valve open 
in a 2 torr environment, since the maximum operating inlet 
pressure under that condition would be 5xl0"3 torr, or 1/400 of the 
measured inlet pressure. If this assumption is correct, then closure 
of all valves on sensing ion pump overcurrent due to high pressure 
would trap the contaminating gas in the inlet volume between the 

inlet valve and the protection valve. 

A postflight test of SUMS on the portable vacuum station in 
Bldg. 505 at KSC was conducted to determine the concentration and 
composition of any trapped gas. This test produced two key 
spectra, one prior to opening any valves to establish the reference 
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background levels within the UAMS analyzer volume and one 
immediately after opening the protection valve to capture a sample 
of the trapped gas. The reference background spectra from this test 
is shown in Fig. 2 and shows the normal background levels observed 
in prior tests. Figure 3 shows the first spectra recorded after 
opening only the protection valve via GSE command. The 
instrument was turned off between these two scans in order to open 
the protection valve, therefore, significant AMU 28, 40, and 44 
peaks produced by desorption from the filament are seen as the 
filament reheats. The only departure of the spectra in Fig. 3 from 
what is normally seen under the same condition is the very large 
water peak at AMU 18. The test indicates the presence of a large 
quantity of water vapor which is "stored" on the inlet plumbing 
surfaces and is desorbing at a rate almost sufficient to match the 
pumping rate of the UAMS. Figure 4 shows a spectra taken several 
scans later at which time the AMU 28, 40, and 48 peaks are seen to 
subside as expected, while the AMU 18 peak has decreased very 

little, if any. 

The wiring harness connecting SUMS to the OEX data system 
hardware was removed from OV-102 and tested for continuity. The 
lead carrying the 64 khz clock signal was found to be open. The 64 
khz signal is divided by 16 in SUMS electronics to provide the 4 khz 
clock required to operate the UAMS. Note that this signal is not 
associated directly with the processing and outputting of data from 
SUMS; rather, it is used internally by the UAMS electronics to run 
the UAMS logic and data processing. Absence of the clock signal 
causes loss of SUMS science data and causes the DECODE flag to be 
set to the "searching" state. No other action results. This was 
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confirmed by postflight tests of SUMS at UTD. These tests were 
conducted with a switch inserted in the 64 khz line so that the line 
could be opened or closed at will. The switch was opened at various 
times relative to SUMS power application (before and after) and it 
was toggled on and off while power was on. In all cases, the effect of 
the 64 khz clock loss was as predicted; i.e., science data was no 
longer seen and the DECODE flag switched to "searching." All other 
engineering parameters and status flags were unchanged. The 
system always resumed normal operation upon return of the clock 
signal. 

The 1.0 PSI SEADS pressure transducer mounted on SUMS for 
the STS-40 flight was calibrated postflight at UTD. The flight unit 
was found to be in very close agreement with a laboratory calibrated 
Baratron guage up to the 1.0 torr limit of the Baratron. This result 
confirmed the validity of the measurements obtained from the 
transducer during the flight. Also, the water vapor pressure for 
liquid water at the flight measured temperature of 6°C in the inlet 

system was calculated to be about 7 torr. 

In summary and conclusion, the SUMS flight hardware 
operated normally during the STS-40 flight. Presence of a large 
water vapor pressure, 2.0 ton*, in the SUMS inlet was measured 
during flight and confirmed by postflight test and analysis. 
Operation of SUMS hardware as determined from recorded 
engineering data was consistent with detection of ion pump 
overcurrent, which would result from a 2.0 torr inlet pressure with 
range valve open, and the subsequent safing of the instrument. The 
broken 64 khz clock lead was not a factor in the STS-40 results, as 
proved by postflight ground tests. 
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Fig. 1 Pressure measured by SERDS transducer at SUMS port 
during STS-40 reentry. 
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Fig. 2 SUMS spectra Just before protection valve opened 

during postf light test. 
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Fig, 3 SUMS spectra Just after protection valve opened 

during postfllght test. 
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Fig, 4 SUMS spectra several scans after protection valve opened 

during postf light test. 




DATE: 


September 23, 1991 


FROM: Roy J. Duckett 

TO: Mr. Robert C. Blanchard SSD.AB 

SUBJECT: STS 40 Flight Results 

I have reviewed the memo from Mr. Edwin W. Hinson and agree with the 
technical contents of the memo, however one point needs to be clarified. The 
presence of two torr water vapor in the inlet system during the flight of STS 40 and 
the failure to find the two torr pressure in post flight testing. The post flight testing is 
consistent with liquid water in the inlet system during the STS 40 flight. Once the Inlet 
valve is closed , the liquid water is no longer in equilibrium with the water vapor and 
the pressure in the tube between the inlet valve and the protection valve is reduced 
by water being adsorbed in the walls of the tubing. Also once on the ground and 
connected to the external vacuum system all liquid water in the inlet system would be 
pumped out. Therefore high water vapor would be expected to be found between 
the valves , but not a two torr levels. 


Roy J. Duckett 


4-2972 



SUMS FINAL REPORT 
CONTRACT NASI -17399 

ATTACHMENT D 

SUMS SOFTWARE LISTING 


(1) GPIO_DATIN: 

GPIO_DATIN is a general program for receiving data from the SUMS 
instrument. The use of this program requires the SUMS Ground Support Equipment and 
a General Purpose Input Output card in the HP computer. In general this program 
receives data from the SUMS in 16 bit parallel format, and stores the data on disk. 

(2) SC_SUMS: 

SC_SUMS: is a program to analyze data stored by GPIO_DATIN. Data 
used by this program is assumed to be stored in a format where scans are in order i.e. 
(1, 2, 3, 4), also it is assumed that the pressure applied to SUMS is Static. 

(3) DC_SUMS: 

DC_SUMS is a program to analyze data stored by GPIO_DATIN. Data used 
by this program may be stored in any order, since it performs analysis on individual 
scans. It is assumed that the pressure is changing during the data period. 

(4) SUMS 90: 

SUMS is a program to analyze SUMS flight data, SUMS produces plots of 
the spectra and data files of the peaks (44, 40, 32, 30, 28, 22, 20, 18, 16, 14, 12). In the 
peak mode, peaks may be either picked by the program or selected by the operator. 

(5) PLOT8: 

PLOT8 is a general plotting program to plot data and perform polynomial 
regression analysis of the data. 

(6) SUMSDISP90: 

SUMSDISP90 is a program to display SUMS spectra plots on the CRT and 
to replay the spectra in sequence. 


(7) READPEAKS: 


READPEAKS is a program which reads the peak data stored by SLJ . 
This program plots the peaks as a function of time, and generates data files for 
individual peaks as a function of the time the peak data was obtained. 

(8) PRTALOGI: 

PRTALOGI is a program which uses the data from the curve fit of altitude 
and peak currents The output of the program is, SNAPSHOT CURRENTS, snapsho 
currents are currents calculated from the equation of the same time and/or altitude. 


ATTACHMENT D - SUMS SOFTWARE LISTING 
(1) GPIO_DATIN: 
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20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


l-STORE "GPIO_DATIN" 

1RJD REVISION 8/22/88 

OPTION BASE 1 

Conf ig ( Program$ , Data$ ) 

DISP 

DISP "MASS STORAGE SET UP OK" 

Yesno (R5) 

ON R5 GOTO 90,40,50 
PRINTER IS 1 
PRINT CHR$ ( 12 ) 

DISP 

DISP "IS DATE CORRECT AND TIME CORRECT"; 

PRINT DATE$ (TIMEDATE) ; " " ;TIME$ (TIMEDATE) 

Yesno(R5) 

ON R5 GOTO 240,160,120 

DISP "INPUT DATE FORM 15 DEC 86"; 

INPUT Dmy$ 

SET TIMEDATE FNDate (Dmy$) 

DISP 

DISP "INPUT 24 HOUR CLOCK FORM 14:25:36"; 

INPUT Hms$ 

SET TIME FNTime (Hms$) 

PRINT TIME$ (TIMEDATE) ; " " ? DATE$ (TIMEDATE) 

PEN 0 

PLOTTER IS 3, "INTERNAL" 

PEN 1 
ALPHA ON 
GRAPHICS OFF 
DISP 

DISP "INPUT BARTRON RANGE MULTIPLIER POSITION ; 
INPUT Bm 

IF Bm=.01 OR Bm= . 1 OR Bm=l THEN 

GOTO 370 

ELSE 

GOTO 290 
END IF 

IF Bm=l THEN Divider=10 
IF Bm=.l THEN Divider=100 
IF Bm=.01 THEN Divider=1000 
BEEP 

DIM Info$ [80] ,Mdy$[ll] ,Hmin$[9] ,Desc$[80] 

DIM Dat (21) 

GOSUB Info 
PRINT InfoS [1,55] 

PRINT Info$ [56,80] ! 

! INFO$ [56,63] TIME INFO$[71,78] DATE 

PRINT Dat (*) 

PRINT "PRESS CONT WHEN READY TO TAKE DATA" 

PAUSE 

WAIT 1 

BEEP 

DISP "INPUT # OF MASS SCANS "; 

INPUT Scan_select 

ALLOCATE INTEGER Scan (Scan_select , 448 ) , Eng ( 12 ) 
ALLOCATE Lsci(72) ,Hsci(360) ,Me(2,12) 

DISP 

DISP "INPUT NUMBER OF PRESS PT PER SCAN"; 

INPUT Pp 

ALLOCATE Press (Scan_select*Pp, 2 ) 
Nn=Scan_select*Pp 


PRECEDING PAGE BLANK NOT FILMED 


610 Pt=INT (5000/Pp) 

620 REMOTE 726 

630 OUTPUT 726;"F0R3P0S1X" 

640 OUTPUT 726 ;"T 2 l";Nn;"Q";Pt;"X" 

650 GOSUB Gpio_read 

660 GOSUB Data_store 

670 GOTO End 

680 Gpio_read: ! 

690 Rssst ' I 

PRINT "I AM NOW WORKING ON THE DATA INPUT" 
PRINT "DO NOT DISTURB" 

Scan_count=0 
ASSIGN @Gpio TO 12 
GOTO Nextword 


700 

710 

720 

730 

740 


750 Reset_scan 
760 
770 
780 
790 
800 
810 
820 

830 Nextword: 


IF Trig=l THEN 790 
TRIGGER 726 
Trig=l 
Science=0 
lnst_status=0 
Fill_count=0 
Scan count=Scan_count+l 


840 

850 


ENTER @Gpio USING "# ,W" ?Data_word 
IF Data word>-l THEN Id_test 


860 Inststatus: 
870 
880 
890 
900 
910 
920 

930 Id_test: 

940 
950 
960 
970 
ID 
980 

ER OF SCANS 
990 
1000 
1010 
1020 


IF Data_word=Inst_status THEN GOTO Nextword 
IF Inst_f lag<>2 THEN GOTO Nextword 
Inst_status=Data_word 
Fill_count=Fill_count+l 

Scan (Scan_count , 444 +Fill_count) =Data_word 
GOTO Nextword 


l FIND FIRST ID 


IF Inst_flag=2 THEN Sciencedata 

IF Data_word=7 4 7 THEN Inst_flag=l 
IF Data word=747 THEN Nextword 
IF Data word=656 AND Inst_flag=l THEN Inst_flag-2 


IF Inst_flag=2 THEN Reset_scan 


! FOUND SECOND 
COUNTER FOR NUMB 


T$=TIME$ (TIMEDATE) 

! Scan(Scan_count,447)=VAL(T$[4,5] ) 
i Scan(Scan_count , 448) =VAL(T$ [7 , 8] ) 

GOTO Nextword 

1030 ScienCedata: ^ c . ence=Science+1 .COUNTER FOR SCIENCE WORDS 

Scan (Scan_count, Science )=Data_word ! STORE SCIENCE DATA 

IF Science=444 AND Scan_count=Scan_select THEN Done 
IF Science=444 THEN lnst_flag=0 
GOTO Nextword 

! 1 RETURN TO MAIN PROGRAM 

1100 PRINT "I HAVE THE DATA WITH NO ERRORS" 

1110 FOR 1=1 TO Scan_select 

^120 PRINT "INTERLACE NUMBER " ;BINAND(Scan(I, 1) , 255) -103 

1130 NEXT I 

1140 OUTPUT 726; "G1B1X" 

1150 FOR 1=1 TO Scan_select*Pp 

1160 ENTER 726 ; Press (1,2) 

1170 Press (1,2) =Press (1,2 ) /Divider 

1180 Press (I , 1) = (1-1) *5/Pp 


1040 
1050 
1060 
1070 
1080 

1090 Done 


1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 


NEXT I 

FOR 1=1 TO Scan_select*Pp 

PRINT "Time & Pressure IN TORR IS 

NEXT I 


" ; Press (I, 1) ,Press(I,2) 


RETURN 
Data store: ! 


STRING 
INTEGER 
REAL 


1 BYTE PER CHAR (+1 IF ODD) + 4BYTE OVERHEAD 

2 BYTE PER NUMBER 
8 BYTE PER NUMBER 

PRINT "DO YOU WISH TO STORE THIS DATA" 

Yesno (R5) 

ON R5 GOTO 1310,2070,1280 
MASS STORAGE IS Data$ 

I STORE SUMS DATA BY SETS OF DATA 
• IN 16 BIT FORMAT 

BEEP „ 

PRINT "NUMBER OF SCANS IN MEMORY IS ";Scan_count 

PRINT "INTERLACE 1 IS IN SCANS"; 

FOR 1=1 TO Scan_count 

IF Scan (I , 1) <>1128 THEN 1400 

PRINT I 

NEXT I 

PRINT 

PRINT "INPUT BEGAINING AND END SCAN TO STORE (N1,N2) 

INPUT Numl,Nuin2 
IF Numl>Nuitt2 THEN 13 40 

File test=Num2-Numl+l . . , 

IF INT (File test/2 ) *2=File_test THEN Filesize=INT (3 . 5*File test) +1 
IF INT (File test/2) *2<>File_test THEN Filesize=INT(3 . 5*File_test) +2 
PRINT "INPUT NAME OF FILE NAME (10 CHAR OR LESS) " 

INPUT File$ 

Length=LEN (File$) 

IF Length<=8 THEN 1570 
PRINT "TOO LONG TRY AGAIN" 

BEEP 
WAIT .5 
BEEP 

GOTO 1480 

CREATE BDAT File$ , Filesize , 256 
IF Num2-Numl+l=Scan_count THEN 1680 
IF Numl=l THEN 1670 
J=1 

FOR Sig_l=Numl TO Num2 

FOR Out=l TO 448 

Scan ( J , Out) =Scan (Sig_l , Out) 

NEXT Out 
J=J+1 

NEXT Sig_l 

REDIM Scan (Num2-Numl+1, 448) 

ASSIGN @Ab TO File$ 

OUTPUT @Ab;Info$ 

OUTPUT @Ab;Dat(*) 

OUTPUT @Ab;Scan(*) 

DISP 

DISP "STORE PRESS DATA"; 

Yesno (R5) 

ON R5 GOTO 1760,1820,1720 
File$="P_"&File$ 

L=LEN (File$) 

IF L>10 THEN File$=File$ [L-9 , L] 



1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 


CREATE BDAT File$,Nn,16 
ASSIGN @Ab TO File$ 

OUTPUT @Ab ; Press (*) 

MASS STORAGE IS Program$ 

RETURN 
Info: ! 

DISP 

DISP "INPUT TEST DESCRIPTION 55 CHAR OR LESS"; 
INPUT Desc$ 

Length=LEN (Desc$) 

IF Length<=55 THEN 1920 
PRINT "TOO LONG TRY AGAIN" 

GOTO 1860 
DISP 

Desc$=Desc$&RPT$ ( " ", 55-Length) 

Info$=Desc$&TIME$ (TIMEDATE) &" "&DATE$ (TIMEDATE) 
MAT Dat= Dat* (0) 

FOR 1=1 TO 21 
DISP 

DISP "Input Analog Monitor Data Point # ";I; 
INPUT Dat (I) 

NEXT I 
BEEP 

PRINT "RETURN SWITCH TO POSITION 1" 

WAIT .5 

BEEP 

RETURN 

End: ! 

BEEP 

PRINT "END OF DATA TAKING AND STORAGE" 

PRINT "DATA HAS BEEN STORED ON " ;File$ 

DISP 

DISP "WANT DATA ANALYSIS"; 

Yesno (R5) 

ON R5 GOTO 2140,2150,2110 
LOAD "SC_SUMS" , 1 
PEN 0 

PLOTTER IS 3, "INTERNAL" 

PRINTER IS 1 
END 

SUB Yesno (R5) 

CONTROL KBD, 2 ; 1 
LOOP 


ON 

KEY 

0 

LABEL 

"YES" GOTO 2330 

ON 

KEY 

1 

LABEL 

If fl 

GOTO 

2210 

ON 

KEY 

2 

LABEL 

If II 

GOTO 

2210 

ON 

KEY 

3 

LABEL 

II If 

GOTO 

2210 

ON 

KEY 

4 

LABEL 

"NO" GOTO 2360 

ON 

KEY 

5 

LABEL 

II If 

GOTO 

2210 

ON 

KEY 

6 

LABEL 

II II 

GOTO 

2210 

ON 

KEY 

7 

LABEL 

II II 

GOTO 

2210 

ON 

KEY 

8 

LABEL 

"REPEAT 

?" GOTO 2390 

ON 

KEY 

9 

LABEL 

It II 

GOTO 

2210 


END LOOP 
R5=l 
OFF KEY 
GOTO 2410 
R5=2 
OFF KEY 
GOTO 2410 



2390 

R5=3 



2400 

OFF KEY 



2410 

SUBEND 



2420 

SUB Config(Program$,Data$) 


2430 

DISP 



2440 

CONTROL KBD, 2 ? 1 


2450 

DISP "SELECT OPTION"; 


2460 

LOOP 



2470 

ON KEY 0 

LABEL " PROGRAM" GOTO 2450 

2480 

ON KEY 1 

LABEL "INT, 0" GOTO 

PinternalO 

2490 

ON KEY 2 

LABEL "INT, 1" GOTO 

Pinternall 

2500 

ON KEY 3 

LABEL "700,0" GOTO 

PhpO 

2510 

ON KEY 4 

LABEL "700,1" GOTO 

Phpl 

2520 

ON KEY 5 

LABEL "DATA " GOTO 

2460 

2530 

ON KEY 6 

LABEL "INT, 0" GOTO 

DinternalO 

2540 

ON KEY 7 

LABEL "INT, 1" GOTO 

Dinternall 

2550 

ON KEY 8 

LABEL "700,0" GOTO 

DhpO 

2560 

ON KEY 9 

LABEL "700,1" GOTO 

Dhpl 

2570 

END LOOP 



2580 

PinternalO : 

i 


2590 


Prograro$=" : INTERNAL4 , 0" 

2600 


GOTO Subend 


2610 

Pinternall : 

i 


2620 


Program$=" : INTERNAL4 , 1" 

2630 


GOTO Subend 


2640 

Phpl: 

Prograin$=" : ,700,1" 


2650 

GOTO Subend 


2660 

PhpO : 

i 


2670 


Program$=" : ,700,0" 


2680 


GOTO Subend 


2690 

DinternalO : 

i 


2700 


Data$=" : INTERNAL4 

,0" 

2710 


GOTO Subend 


2720 

Dinternall : 

i 


2730 


Data$=" : INTERNAL, 4 , 

1" 

2740 


GOTO Subend 


2750 

Dhpl: 

Data$=": ,700,1" 


2760 


GOTO Subend 


2770 

DhpO : ! 



2780 

Data$=": ,700,0" 



2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

* 

2950 

2960 

2970 


GOTO Subend 


Subend : 


BEEP 

Flag=Flag+l 

IF Flag=2 THEN 2880 

DISP 

! CONTROL KBD, 2 ? 2 

DISP "SELECT NEXT OPTION"? 

IF Flag<=l THEN 2460 

PRINT "PROGRAM MSI IS "?Program$ 

PRINT "DATA MSI IS "?Data$ 

SUBEND 
SUB Aclear 

OUTPUT 2 USING "#,B"?255,75 
SUBEND 

! "DATEJTIME" ******************************************************** 

DEF FNTime$ (Now) ! GIVEN SECONDS RETURN HOUR, MIN SEC 
Now=INT (Now) MOD 86400 
H=Now DIV 3600 


2980 M=Now MOD 3600 DIV 60 
2990 S=Now MOD 60 

3000 OUTPUT T$ USING " # , Z Z , K" ; H , " : " , M , " : " , S 
3010 RETURN T$ 

3020 FNEND 

3030 DEF FNTime (T$) ! GIVEN HH:MM:SS RETURN SECONDS 

3040 ON ERROR GOTO Err 
3050 ENTER T$?H,M,S 

3060 RETURN (3600*H+60*M+S) MOD 86400 
3070 Err: OFF ERROR 

3080 RETURN TIMEDATE MOD 86400 

3090 FNEND 

3100 DEF FNDate$ (Seconds) 1 GIVEN SECONDS RETURN DD MM YYYY 
3110 DATA JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, DEC 
3120 DIM Month? (1:12) [3] 

3130 READ Month$ (*) 

3140 Julian=Seconds DIV 86400-1721119 

3150 Year= (4*Julian-l) DIV 146097 

3160 Julian=(4*Julian-l) MOD 146097 

3170 Day=Julian DIV 4 

3180 Julian=(4*Day+3) DIV 1461 

3190 Day= (4*Day+3 ) MOD 1461 

3200 Day= (Day+4 ) DIV 4 

3210 Month= ( 5*Day-3 ) DIV 153 ! MONTH 

3220 Day= (5*Day-3 ) MOD 153 

3230 Day=(Day+5) DIV 5 1 DAY 

3240 Year=100*Year+Julian 

3250 IF Month<10 THEN 

3260 Month=Month+ 3 

3270 ELSE 

3280 Month=Month- 9 

3290 Year=Year+l 

3300 END IF 

3310 OUTPUT D$ USING " # , ZZ , X, 3A, X, 4Z" ? Day , Month$ (Month) , Year 
3320 RETURN D$ 

3330 FNEND 

3340 DEF FNDate (Dmy$) ! GIVEN DD, MMM, YYYY RETURN SECONDS 
3350 DATA JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, DEC 
3360 DIM Month$(l:12) [3] 

3370 READ Month$ (*) 

3380 ON ERROR GOTO Err 
3390 I$=Dmy$&" " 

3400 ENTER 1$ USING "DD, 4A, 5D" ;Day,M$, Year 
3410 IF YearclOO THEN Year=Year+1900 
3420 FOR 1=1 TO 12 

3430 IF POS (M$ , MonthS ( I ) ) THEN Month=I 
3440 NEXT I 

3450 IF Month=0 THEN Err 
3460 IF Month>2 THEN 
3470 Month=Month-3 
3480 ELSE 
3490 Month=Month+ 9 
3500 Year=Year-l 
3510 END IF 

3520 Century=Year DIV 100 
3530 Remainder=Year MOD 100 

3540 Julian=146097*Century DIV 4+1461*Remainder DIV 4+(153*Month+2) DIV 5+Day+l 
721119 

3550 Julian=Julian*86400 
3560 Seconds=Julian 



3570 

3580 

3590 

3600 

3610 

3620 


IF Julian<2 . 08662912E+11 OR Julian>=2 . 143252224E+11 THEN Err 
RETURN Julian ! RETURN JULIAN DATE IN SECONDS 
Err: OFF ERROR 

PRINT "ERROR" 

RETURN TIMEDATE ! RETURN CURRENT DATE 
FNEND 


ATTACHMENT D - SUMS SOFTWARE LISTING 
(2) SC_SUMS: 



20 I NOTE^ US^TH I £ S PROGRAM TO CLEAN UP THE PROGRAM AND REMOVE UNNECESSARY LINES 

30 l NOTE THIS VERSION USED WITH DATA FROM STATIC CAL 

40 1 IT ASSUMES 4 SCAN IN ORDER OF 1,2, 3, 4 

50 l ALSO DATA FROM BATRON IN PRESSURE FILE 

60 !RJD REVISION 9/15/88 

70 OPTION BASE 1 

8 0 GCLEAR 

81 STATUS KBD,9;Keyb . , * n . 

82 IF (BIT (Keyb, 5) =1) THEN CALL Config 320 (Program?, Data?) 

83 IF (BIT (Keyb, 5) =0) THEN CALL Config 3 6 (Program?, Data?) 

90 DIM Cat? (1) [80] , Image? [80] 

100 INTEGER Scan (4,448 ), Eng (4, 12) T „ W1 , Tneaks 

110 DIM Lsci (4,72) ,Hsci(4,360) ,Me(2,ll) ,Curr(36) , Peaks ( 11 , 2 ) ,Lut(16,32) ,Lpeaks 


120 ASSIGN @Ab TO "LUT" 

130 ENTER @Ab ; Lut ( * ) 

140 DIM Info? [80] 

150 DIM Dat (21) 

160 DISP 

170 Printer=l 

180 PRINTER IS Printer 

190 PRINT CHR? ( 12 ) ! FF CLEARS SCREEN 

210 PEN 0 

220 PLOTTER IS 3, "INTERNAL" 

230 PEN 1 
240 GINIT 
250 ALPHA ON 
260 GRAPHICS OFF 
270 BEEP 

280 MASS STORAGE IS Data? 

281 CAT 
290 BEEP 
300 DISP 

310 DISP "INPUT FILE NAME"; 

320 INPUT File? 

330 Re c_num= 1 5 

340 File?="P_"&File? 

350 CAT TO Cat? (*); SELECT File?, NO HEADER 
360 N_press=VAL(Cat? (1) [38 , 45] ) 

370 ALLOCATE Press (N_press , 2 ) 

380 MAT Press= (0)*Press 
390 Scan_count=4 

395 GOSUB Disk_data 

396 MASS STORAGE IS Program? 

400 DISP "PRINTER (P) OR SCREEN (S) "; 

410 INPUT C? 

420 IF C?[1,1]="S" OR C? [ 1 , 1] ="s" THEN 460 

430 Printer=701 

440 PRINTER IS Printer 

450 DISP 

460 DISP "PLOTTER (P) OR SCREEN (S) "; 

470 INPUT C? 

480 IF C?[1,1]="S" OR C? [1, l]="s" THEN 580 
490 Plotter=705 
500 DISP 

510 DISP "SELECT PEN"; 

520 INPUT Pen 
530 PEN Pen 

54Q PLOTTER IS 705,"HPGL" 


/ 

PRECEDING PAGE BLANK NOT FILMED 



550 PRINTER IS 705 
560 PRINT "VS10" 

570 PRINTER IS Printer 

580 ! GOSUB Disk_data 

590 Ave_press=0 

600 FOR 1=1 TO N_press 

610 Ave_press=Ave_press+Press (1,2) 

620 NEXT I 

630 Ave_press=Ave_press/N_press 

640 GOSUB Scisep 
650 GOTO End 


660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 


Scisep: ! 

FOR Sn=l TO 4 
Engc=0 

FOR 1=1 TO 12 

Eng_test=INT (Scan (Sn, I) /256) 

IF Eng_test<>4 THEN 740 
Engc=Engc+l 

Eng (Sn, I) =BINAND (Scan(Sn, I) ,255) 

NEXT I 

W=Eng (Sn, 1) -103 !************************************************ 

IF W>0 AND W<5 THEN 790 

PRINT "INTERLACE NUMBER DOES NOT CHECK" 

PAUSE 

Highc=0 

Lowc=W+13 

Lown=0 

FOR 1=13 TO Science 
Rr=0 

IF I=Lowc THEN 900 

Highc=Highc+l 

Sig=BINAND (Scan (Sn, I) ,31) 

Ran=BINAND (Scan ( Sn , I ) ,480)/32 
Hsci (Sn,Highc) =Lut (Ran+1 , Sig+1) 

GOTO 950 

Lown=Lown+ 1 ! LOW MASS HERE 

S ig=BINAND (Scan ( Sn , I ) ,31) 

Ran=BINAND ( Scan ( Sn , I ) ,480)/32 
Lsci (Sn, Lown) =Lut (Ran+1 , Sig+1) /2 
Lowc=Lowc+6 
NEXT I 

J if Science<>444 THEN GOSUB Printout 
NEXT Sn 

GOSUB Graphplot 

RETURN 


! "GRAPHPLOT" *************************************** 


1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 


GCLEAR 
ALPHA OFF 
GRAPHICS ON 


i 


DEG 

! Lmass=l 
Xl=280 
X2=0 

X5=Xl+72* (Lmass=l) 
X3=X5+ . 1*ABS (X2-X5) 
X4=X2- . 1*ABS (X2-X5) 
Y1=LGT ( 1 . E-13 ) 
Y2=LGT ( 1 . E-9 ) 
Y3=Y1-. 1*ABS (Y2-Y1) 


THIS SELECTS THE LOW MASS PLOT OPTION REMOVE ! 

! 360 NOTE XI USED IN STEP LABEL ETC 


l IF SELECT LOW MASS PLOT X5=Xl+72 



1150 Y4=Y2+ . 1*ABS ( Y2-Y1) 

1160 WINDOW X3,X4,Y3,Y4 

1170 CLIP X5+ ( . 05*ABS (X2-X5) ) ,X2- ( 

S ( Y2-Y1) ) 


05*ABS (X2-X5) ) ,Y1- 


. 05*ABS (Y2-Y1) ) 


Y2+ ( . 05*AB 


11801 CLIP ON 
1190 PENUP 

1200 DIM A$[80] ,B$[80] 

1210 A$="STEP NUMBER" 

1220 B$="ION CURRENT IN AMPERE" 

1230 MOVE X5,Y1 
1240 DRAW X5,Y2 
1250 DRAW X2,Y2 
1260 DRAW X2,Y1 
1270 DRAW X5,Y1 
1280 J=1 

1290 FOR X=X5 TO X2 STEP X2-X5 
1300 FOR Y=Y1 TO Y2-1 STEP 1 
13101 MOVE X,Y 1 DRAW DECADE LINES 
13201 DRAW X2,Y 1 DRAWS DECADE LINES 
1330 FOR 1=1 TO 10 STEP 1 
1340 MOVE X, Y+LGT (I) 

1350 IPLOT . 01*J* (X2-X5) ,0,1 

1360 IPLOT 01*J* (X2-X5) , 0, 1 

1370 IF I<10 THEN 1400 

1380 IPLOT J*. 04* (X2-X5) , 0, 1 

1390 IPLOT J* (-. 04) * (X2-X5) , 0, 1 

1400 NEXT I 

1410 NEXT Y 

1420 PENUP 

1430 J=-l 

1440 NEXT X 

1450 FOR I=Y1 TO Y2 STEP 1 

1460 MOVE X5-.045* (X2-X5) , I- . 015* ( Y2-Y1) 

1470 CLIP OFF 

1480 LORG 6 

1490 CSIZE 2.5, .6 

1500 LABEL "10" 

1510 MOVE X5-. 016* (X2-X5) ,1 

1520 LORG 5 

1530 LABEL INT(I) 

1540 CLIP ON 

1550 NEXT I 

1560 CLIP OFF 

1570 MOVE X5- (X2-X5) * . 100 , (Y2+Yl)/2 
1580 LDIR 90 
1590 CSIZE 4 , . 6 
1600 LORG 6 


1610 

LABEL (B$) 



1620 

LORG 1 



1630 

PENUP 



1640 

LDIR 0 



16501 

GOTO 630 ! BY 

PASS 

LAI 

1660 

FOR 1=0 TO XI STEP 

10 

1670 

MOVE 1,-9 



1680 

IPLOT 0 , - . 05 



1690 

IPLOT 0 , + . 05 



1700 

NEXT I 



1710 

CSIZE 3 



1720 

LORG 5 



1730 

FOR 1=50 TO XI 

STEP 

50 


1 DIRECTION OF YAXIS NAME 
! SIZE OF YAXIS MAME 
! CENTERS AND LOCATES YAXIS NAME 

! NORMAL VALUE FOR LORG 

[NORMAL VALUE FOR LDIR 


1740 MOVE I, -9. 00 
1750 I PLOT 0,-.10 
1760 I PLOT 0,+.10 
1770 MOVE I, -8. 85 
1780 LABEL I 
1790 NEXT I 

1800 MOVE (X2+X1) /2 , Y2+ . 105* ( Y2-Y1) 

1810 CSIZE 3 ,.6 ! SIZE OF XAXIS NAME 

1820 LORG 6 ! CENTERS AND LOCATES XAXIS NAME 

1830 LABEL Inf o$ [ 1 , 20 ] &" " &Inf o$ [ 50 , 80 ] 

1840 MOVE 150,-9.2 

1850 LABEL USING " 3 5A, MD. DDDE" ; "AVERAGE PRESSURE IS ",Ave_press 

1860 LORG 3 

1870 MOVE 250,-9.5 

1880 LABEL USING ’'ISA” ; "DATA FROM " ; File$ [ 3 , 11] 

1890 ! "STEP_AMU" 

1900 ! CAL OF STEP LOCATIONS FROM TWO KNOWN STEPS AND AMU 

1910 1DISP "INPUT STEP, 1 AMU 1" ; 

1920 1 INPUT Stepl, Amul 
1930 Stepl=27 . 5 
1940 Amul=44 

1950 IDISP "INPUT STEP 2, AMU 2"; 

1960 ! INPUT Step2,Amu2 
1970 Step2=251 . 5 
1980 Amu2=12 

1990 A=(LGT(Amu2) -LGT(Amul) ) / (Step2-Stepl) 

2000 B=LGT (Amul) -A*Stepl 

2010 ! PRINT " LGT ( AMU ) = SLOPE *STEP+CONSTANT" 

2020 ! PRINT "SLOPE = ";A;" CONSTANT = ";B 
2030 ! PRINT 

2040 ! PRINT "AMU" , "STEP" , "STEP RANGE" 

2050 LORG 5 
2060 CSIZE 3 
2070 FOR 1=1 TO 11 
2080 READ Amu 

2090 DATA 44,40,32,30,28,22,20,18,16,14,12 
2100 Step=INT( (LGT (Amu) -B)/A+.5) 

2110 Me ( 1 , I ) =Amu 
2120 Me (2 , I) =Step 

2130 ! PRINT Amu, Step, Step-2 ?Step+2 
2140 MOVE Step, Y1 
2150 IPLOT 0 , + . 05 
2160 IPLOT 0 , - . 05 
2170 MOVE Step, -13.1 
2180 LABEL Amu 
2190 NEXT I 
2200 RESTORE 
2210 CSIZE 5 
2220 LORG 4 

2230 MOVE (X1-X2 ) /2 , Yl- . 4 
2240 LABEL "MASS NUMBER" 

2250 MOVE 0,-12. 9 ! LGT ( 1 . 24E-13 ) 

2260 FOR 1=1 TO XI 
2270 DRAW I , LGT (Hsci ( 1 , I ) ) 

2280 DRAW 1+ . 25 , LGT (Hsci (2 , 1 ) ) 

2290 DRAW I+. 5, LGT (Hsci (3,1) ) 

2300 DRAW 1+ . 75 , LGT (Hsci (4 , I ) ) 

2310 NEXT I 

2320! DUMP GRAPHICS #701 
2330 IF Lmass=0 THEN GOTO Bypass 


! BY PASS LOW MASS PLOT 


2340 Lowmass: ! 

2350 MOVE XI, -13. 2 ! LGT ( 6 . 2E-14 ) 

2360 FOR 1=1 TO 72 

2370 DRAW Xl+I, LGT (Lsci( 1,1) ) 

2380 NEXT I 
2390 Bypass: ! 

2400 LORG 1 

2410 CSIZE 3 

2420 MOVE Xl-30,-9.5 

2430 IF Plotter=0 THEN 2440 

2440 ALPHA ON 

2450 PRINT 

2460 PRINT Info$ 

2470 PRINT "DATA FROM " ;File$ [ 3 , 11] 

2480 PRINT USING " 3 5A, MD. DDDE" ; "AVERAGE PRESSURE IS ",Ave_press 
2490 PRINT USING "30A, 40A, 10A" ; , "ENG UNITS", "DIT DATA" 

2500 Nl=Eng(l, 1) -103 
2510 N2=Eng (2 , 1) -103 
2520 N3=Eng ( 3 , 1) -103 
2530 N4=Eng(4 , 1) -103 
2540 N5=Eng (1,1) 

2550 PRINT USING 3220 ; "INTERLACE NUMBER " ;N1 , N2 , N3 , N4 , N5 

2560 Nl=Eng(l, 2) *20/255 

2570 N2=Eng(2, 2) *20/255 

2580 N3=Eng(3, 2) *20/255 

2590 N4=Eng (4 , 2) *20/255 

2600 N5=Eng (1,2) 

2610 PRINT USING 3220;"+15 VOLTS " ;N1 , N2 , N3 , N4 ,N5 

2620 Nl=Eng(l, 3)*(-30)/255 

2630 N2=Eng (2,3)*(— 30)/255 

2640 N3=Eng (3,3)*(-30)/255 

2650 N4=Eng(4 ,3)*(-30)/255 

2660 N5=Eng (1,3) 

2670 PRINT USING 3220;"-15 VOLTS " ;N1 , N2 , N3 , N4 ,N5 

2680 Nl=Eng ( 1 , 4 ) *5 . E+3/255 

2690 N2=Eng(2,4)*5. E+3/255 

2700 N3=Eng ( 3 , 4 ) *5 . E+3/255 

2710 N4=Eng(4,4)*5. E+3/255 

2720 N5=Eng (1,4) 

2730 PRINT USING 3220;"ION PUMP VOLTAGE" ;N1 , N2 , N3 , N4 , N5 

2740 Nl=Eng(l,5)*2. 5-110 

2750 N2=Eng(2,5)*2. 5-110 

2760 N3=Eng(3,5)*2. 5-110 

2770 N4=Eng(4,5)*2. 5-110 

2780 N5=Eng (1,5) 

2790 PRINT USING 3220;"ION SOURCE TEMP DEG F" ;N1 , N2 , N3 , N4 , N5 

2800 Nl=Eng(l, 6) *1. 105-93 . 136 

2810 N2=Eng(2, 6) *1.105-93.136 

2820 N3=Eng(3,6)*l. 105-93. 136 

2830 N4=Eng(4 , 6) *1. 105-93 . 136 

2840 N5=Eng (1,6) 

2850 PRINT USING 3220;"PRE AMP TEMP DEG F" ;N1 , N2 , N3 , N4 , N5 

2860 Nl=Eng(l, 7) *10/255 

2870 N2=Eng(2 , 7) *10/255 

2880 N3=Eng(3 , 7) *10/255 

2890 N4=Eng(4, 7) *10/255 

2900 N5=Eng (1,7) 

2910 PRINT USING 3220;"+5 VOLTS " ;N1 , N2 , N3 , N4 ,N5 
2920 Nl=Eng(l, 8) *10/255 
2930 N2=Eng(2, 8) *10/255 



2940 N3=Eng(3,8) *10/255 

2950 N4=Eng(4 , 8) *10/255 

2970 PRINT USING 3220;"A/D REF VOLTAGE " ;N1,N2 ,N3 ,N4 ,N5 

2980 Nl=Eng(l, 9) *100/134 

2990 N2=Eng(2, 9) *100/134 

3000 N3=Eng(3, 9) *100/134 

3010 N4=Eng(4, 9) *100/134 

3030 PRIOTUSING 3220 ; "EMISSION CURE IN MICRO AMP” ;N1 , N2 , N3 ,N4 , N5 

3040 Nl=Eng(l, 10) *100/134 

3050 N2=Eng(2 , 10) *100/134 

3060 N3=Eng(3, 10) *100/134 

3070 N4=Eng(4, 10) *100/134 

3M? PRINTMJSING^ 3220 ; "COLLECTOR CURR IN MICRO AMP” ;N1, N2 , N3 ,N4 , N5 

3100 Nl=Eng(l, 11) *100/255 

3110 N2=Eng(2 , 11) *100/255 

3120 N3=Eng (3 , 11) *100/255 

3130 N4=Eng(4 , 11) *100/255 

3150 PRINT^USING 3220 ; "ELECTRON ACC VOLTAGE " ;N1,N2 ,N3 ,N4 ,N5 

3160 Nl=Eng(l f 12) *10/255 

3170 N2=Eng(2 , 12) *10/255 

3180 N3=Eng(3, 12) *10/255 

3190 N4=Eng(4 , 12) *10/255 

3210 PRINT^USING 3220; "REF ION ACC VOLTAGE" ;N1,N2 ,N3 ,N4,N5 

TMAPF 30A DDDD DD 3X DDDD . DD , 3X , DDDD* DD , 3X , DDDD* DD , 6X , DDD 

lllo ?DDE:Ix;dDD,2X,MD.DDE,4X,DDD,2X,MD.DDE,4X,DDD,2X,MD.DDE” 

3240 GOTO Of f_prt_all 
3250 Bkg=1.24E-13 

3270 PRINT USING Image$ ; I , Hsci ( I , Sn) -Bkg, 1+90 ,Hsci (90+1 , Sn) -Bkg, 1+180 , Hsci ( 1+1 

80 , Sn)-Bkg, 1+270 ,Hsci (1+270 ,Sn)-Bkg 

3280 NEXT I 
3290 Off_prt_all: ! 

3300 GOSUB Peakpicker 

3310 GOSUB Inststat 

3320 RETURN 
3330 Printout; ! 

3340 PRINTER IS 701 

3350 PRINT TAB ( 15 )? "ENGINEERING DATA " 

3360 FOR 1=1 TO 12 

3370 PRINT TAB ( 15 ) ;Eng (Sn , I) 

3380 NEXT I 
3390 PRINT 

3400 PRINT TAB ( 15) ; "SCIENCE DATA " 

3410 J=0 

3420 FOR 1=1 TO XI 
3430 J=J+1 

3440 IF J=INT(J/5) *5=J THEN 3480 
3450 PRINT USING 34 60 ; I , Hsci (Sn , I) 

3460 IMAGE 3X, DDD , 3X,MD. DDE 
3470 GOTO 3500 

3480 PRINT USING 3490 ; I , Hsci (Sn , I ) , Lsci (Sn, J/5) 

3490 IMAGE 3 X , DDD , 3 X , MD . DDDE , MD . DDDE 
3500 NEXT I 
3510 PRINT 
3520 ! 


3530 PRINTER IS 1 
3540 RETURN 
3550 Peakpicker: ! 

3560 PRINT 

3570 DISP 

3580 ALPHA ON 

3590 GRAPHICS OFF 

3591 CONTROL KBD,2;1 

3600 DISP "WANT PEAK PICKER DATA "; 

3610 Yesno (R5) 

3620 ON R5 GOTO 3640,3630,3600 
3630 RETURN 

3640 PRINT "CURRENTS HAVE BASE VALUE OF -1.24E-13 REMOVED" 

3641 CONTROL KBD,2;1 
3650 Basi=l . 24E-13 
3660 PRINTER IS CRT 
3670 PRINT USING "////" 

3680 FOR 1=1 TO 11 

3690 PRINT "FOR MASS # ";Me(l,I);" CURRENTS ARE" 

3700 Peaks (1,1) =Me (1,1) 

3710 MAT Curr= (0)*Curr 
3720 Count =1 

3730 FOR J=Me (2 , I) -3 TO Me (2, I) +3 
3740 ! GOTO 3860 

3750 PRINT USING "DDD, 5X, MD. DDE , 3X,MD. DDE , 3X,MD. DDE, 3X, MD . DDE" ? J , Hsci ( 1 , J) -Bas 

i,Hsci (2, J) -Basi,Hsci (3 , J) -Basi ,Hsci (4 , J) -Basi 

3760 Curr (Count) =Hsci ( 1 ,J) -Basi 

3770 Count=Count+l 

3780 Curr (Count) =Hsci (2 ,J) -Basi 

3790 Count=Count+l 

3800 Curr (Count) =Hsci (3 ,J) -Basi 

3810 Count=Count+l 

3820 Curr (Count) =Hsci (4 , J) -Basi 

3830 Count=Count+l 

3840 NEXT J 

3850 Overcurrent=0 

3860 MAT SORT Curr(*) 

3870 IF Curr (28 ) >6 . 5E-11 THEN Overcurrent=l 
3880 IF Curr ( 27 ) >6 . 5E-11 THEN Overcurrent=2 
3890 IF Curr (26) >6 . 5E-11 THEN Overcurrent=3 
3900 IF Curr (25)>6.5E-11 THEN 0vercurrent=4 

3910 Ave_current= (Curr (36-Overcurrent) +Curr (35-Overcurrent) +Curr (34-Overcurren 
t)+Curr (33-Overcurrent) )/4 

3920 PRINT USING "3 OA, MD. DDE" ; " THE AVERAGE CURRENT IS " ; Ave_current 

3930 PRINT 
3940 DISP 

3950 DISP "IS AVERAGE CURRENT OK ?"; 

3960 Yesno (R5) 

3970 ON R5 GOTO 4010,3980,3940 
3980 DISP 

3990 DISP "INPUT CORRECT AVE_CURRENT " ; 

4000 INPUT Ave_current 

4010 Peaks ( I , 2 ) =Ave_current 

4020 DISP 

4030 NEXT I 

4040 PRINTER IS Printer 

4050 FOR 1=21 TO 67 STEP 23 

4060 MAT Curr= (0)*Curr 

4070 Count=l 

4080 FOR J=-3 TO 3 


4090 Curr (Count) =Lsci ( 1, I) 

4100 Count=Count+l 

4110 Curr(Count)=Lsci(2,I) 

4120 Count=Count+l 

4130 Curr (Count) =Lsci (3 , I) 

4140 Count=Count+l 

4150 Curr(Count)=Lsci(4,I) 

4160 Count=Count+l 
4170 NEXT J 

“12 (35) +Curr ( 34 ) +Curr ( 33 ) +Curr (32) +Curr < 3 1 ) +Curr < 3 0 ) +Curr ( 

29 ) ) / 8 

4200 IF 1=21 THEN Lpeaks ( 1) =Ave-6 . 2E-14 
4210 IF 1=44 THEN Lpeaks (2 ) =Ave-6 . 2E-14 
4220 IF 1=67 THEN Lpeaks ( 3 ) =Ave-6 . 2E-14 
4230 NEXT I 
4240 PRINT 

4250 PRINT USING " 2 5A,MD. DDE" ? "AVERAGE M/E 
4260 PRINT USING " 25 A, MD . DDE" ; "AVERAGE M/E 
4270 PRINT USING "25A,MD. DDE" ; "AVERAGE M/E 

“22 PRINT 1 ” MASS NUMBER ION CURRENT” 

4300 FOR 1=1 TO 11 „ 

4310 PRINT USING "5X, DDD, 20A,MD . DDE" ; Peaks ( 1 , 1) , 

2 ) 


4 

2 

1 


CURRENT" , Lpeaks (1) 
CURRENT" , Lpeaks ( 2 ) 
CURRENT" , Lpeaks ( 3 ) 


", Peaks (I, 


4320 

NEXT I 


4330 

PRINT 


4331 

CONTROL KBD , 

2 ; o 

4340 

RETURN 


4350 

Disk_data: 

i 

4360 


Science=444 

4370 


Disk flag=l 

4380 


L=LEN (File$) 

4390 


File$=File$ [ 3 , L] 

4400 


ASSIGN @Ab TO File$ 

4410 


ENTER @Ab;Info$ 

4420 


ENTER @Ab;Dat (*) 

4430 


ENTER @Ab;Scan(*) 

4440 


DISP 

4450 

i 

DISP "ENTER PRESSURE 

4460 

j 

Yesno (R5) 

4470 


! ON R5 GOTO 4190,4220 

4480 


File$="P "&File$ 

4490 


ASSIGN @Ab TO File$ 

4500 


ENTER @Ab ; Press (*) 

4510 


RETURN 


4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 


Inststat: ! 


Sn=l 

FOR Fill test=445 TO 448 
IF Scan(Sn,Fill_test)=0 THEN RETURN 
Stat_test=2 A 16+Scan ( Sn , Filljtest) 

W47=INT (Stat_test/256) 

PRINT^USING S ”27a2dDDDD, 3X, DDD, 3X,DDD” ; "FOR SCAN # 1 STATUS WORD 

,Stat_test,W47 ,W48 
4600 PRINT 

4610 PRINT " INSTRUMENT STATUS" 

4620 Flag=BINAND (W48 , 1) 

4630 ON Flag+1 GOSUB 5070,5090 e 

4640 PRINT USING 5350; "INLET VALVE ",Status$ 


4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 


Flag=BINAND (W48 , 2 ) /2 

ON Flag+1 GOSUB 5070,5090 

PRINT USING 5350 ; "RANGE VALVE ",Status$ 

Flag=BINAND ( W4 8 , 4 ) /4 

ON Flag+1 GOSUB 5070,5090 

PRINT USING 5350 ; ’’PROTECTION VALVE" , Status $ 

Flag=BINAND (W48 , 8 ) /8 

ON Flag+1 GOSUB 5310,5330 

PRINT USING 5350; "SYSTEM RESET" , Status$ 

Flag=BINAND (W48 , 16) /16 

ON Flag+1 GOSUB 5310,5330 

PRINT USING 5350 ; "UAMS RESET ",Status$ 

Flag=BINAND(W48, 32)/32 

ON Flag+1 GOSUB 5270,5250 

PRINT USING 5350; "DECODE ",Status$ 

Flag=BINAND (W48 , 64 ) /64 

ON Flag+1 GOSUB 5290,5110 

PRINT USING 5350; "BUFFER OVERFLOW ",Status$ 
Flag=BINAND (W48 , 128 ) /128 
ON Flag+1 GOSUB 5230,5110 
PRINT USING 5350; "PROCESSOR ",Status$ 

PRINT 

Flag=BINAND (W47 , 1) 

ON Flag+1 GOSUB 5210,5110 
PRINT USING 5350; "PROGRAM »,Status$ 
Flag=BINAND (W47 , 4 ) /4 
ON Flag+1 GOSUB 5170,5110 

PRINT USING 5350; "INTERNAL PRESSURE" , Status $ 
Flag=BINAND (W47 , 8 ) /8 
ON Flag+1 GOSUB 5190,5110 

PRINT USING 5350; "INLET PRESSURE" , Status $ 
Flag=BINAND (W47 , 16) /16 
ON Flag+1 GOSUB 5130,5150 

PRINT USING 5350; "INSTRUMENT POWER" , Status$ 
FI ag=BINAND ( W4 7 , 3 2 ) / 3 2 
ON Flag+1 GOSUB 5130,5150 

PRINT USING 5350; "ION PUMP POWER" , Status$ 
Flag=BINAND (W47 , 64 ) /64 
ON Flag+1 GOSUB 5190,5110 

PRINT USING 5350; "ION PUMP CURRENT" , Status$ 

PRINT 

GOTO 5360 

Status$="OPEN" 

RETURN 

Status $=" CLOSE" 

RETURN 

Status$="OK" 

RETURN 

Status$="ON" 

RETURN 

Status$="OFF" 

RETURN 

Status$="LOW" 

RETURN 

Status$="HIGH" 

RETURN 

Status$= "ERROR" 

RETURN 

Status $="HALT" 

RETURN 


5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 


End: 


Status $=" SEARCHING" 

RETURN 

Status$="ID FOUND" 

RETURN 

Status $=" OVER FLOW" 

RETURN 

Status$= "OPERATE RESET" 
RETURN 

S tatus $= " RELEASE RESET" 
RETURN 

IMAGE 25A, 15A 
NEXT Fill_test 
RETURN 

i 

PRINT "END" 

DISP 
PEN 0 

PLOTTER IS 3 , "INTERNAL" 
PRINTER IS CRT 
PEN 1 


END 

SUB Yesno(R5) 
LOOP 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 
ON KEY 


1 

2 

3 

4 

5 

6 
7 


LABEL "YES" GOTO 5570 
LABEL "" GOTO 5470 
LABEL "" GOTO 5470 
LABEL "NO" GOTO 5590 
LABEL "" GOTO 5470 
LABEL "" GOTO 5470 
LABEL "" GOTO 5470 
ON KEY 8 LABEL "REPEAT ?" GOTO 5610 
END LOOP 
R5=l 

GOTO Subend 
R5=2 

GOTO Subend 
R5=3 

Subend : ! 

SUBEND 

SUB Conf ig36 (Program$ , Data$) 

DISP 

CONTROL KBD , 2 ; 1 
DISP "SELECT OPTION"; 

LOOP 

ON KEY 0 LABEL "PROGRAM" GOTO 5670 
ON KEY 1 LABEL "INT,0" GOTO PinternalO 

ON KEY 2 LABEL "INT,1" GOTO Pinternall 

ON KEY 3 LABEL "700,0" GOTO P7000 

ON KEY 4 LABEL "700,1" GOTO P7001 

ON KEY 5 LABEL "DATA " GOTO 5680 

ON KEY 6 LABEL "INT,0" GOTO DinternalO 

ON KEY 7 LABEL »INT,1" GOTO Dinternall 

ON KEY 8 LABEL "700,0" GOTO D7000 

ON KEY 9 LABEL "700,1" GOTO D7001 

END LOOP 
PinternalO: 


Pinternall: 


Program$=" : INTERNAL4 , 0" 
GOTO Subend 

i 

Program$=" : INTERNAL4 , 1" 


5850 



GOTO Subend 

5860 

P7000: 


Program$=" : , 700, 0" 

5870 

GOTO Subend 

5880 

P7001: 


1 

• 

5890 



Program$=": ,700,1" 

5900 



GOTO Subend 

5910 

DinternalO : 

i 

5920 



Data$=" : INTERNAL4 , 0" 

5930 



GOTO Subend 

5940 

Dinternall: 

i 

5950 



Data$=" : INTERNAL, 4,1" 

5960 



GOTO Subend 

5970 

D7000 : 


Data$=" ; ,700,0" 

5980 



GOTO Subend 

5990 

D7001: 1 



6000 


Data$=": ,700, 1" 

6010 


GOTO Subend 

6020 

Subend : 

J 


6030 


BEEP 

6040 


Flag=Flag+l 

6050 


IF 

Flag=2 THEN 6100 

6060 


DISP 

6080 


DISP "SELECT NEXT OPTION"; 

6090 


IF 

Flag<=l THEN 5680 

6100 


PRINT "PROGRAM MSI IS ";Program$ 

6110 


PRINT "DATA MSI IS ";Data$ 

6120 


SUBEND 

6130 

SUB Config320 (Program$, Data$) 

6131 

DISP 


6132 

DISP "SELECT OPTION"; 

6150 

CONTROL KBD , 2 ; 1 

6170 

LOOP 


6180 

ON 

KEY 

1 LABEL "PROGRAM" GOTO 6170 

6190 

ON 

KEY 

2 LABEL "704,0" GOTO P7040 

6201 

ON 

KEY 

3 LABEL "" GOTO 6170 

6202 

ON 

KEY 

4 LABEL "704,1" GOTO P7041 

6210 

ON 

KEY 

5 LABEL "700,0" GOTO P7000 

6211 

ON 

KEY 

6 LABEL "" GOTO 6170 

6212 

ON 

KEY 

7 LABEL "" GOTO 6170 

6220 

ON 

KEY 

8 LABEL "700,1" GOTO P7001 

6230 

ON 

KEY 

9 LABEL "DATA " GOTO 6170 

6240 

ON 

KEY 

10 LABEL "704,0" GOTO D7040 

6241 

ON 

KEY 

11 LABEL "" GOTO 6170 

6250 

ON 

KEY 

12 LABEL "704,1" GOTO D7041 

6260 

ON 

KEY 

13 LABEL "700,0" GOTO D7000 

6261 

ON 

KEY 

14 LABEL "" GOTO 6170 

6262 

ON 

KEY 

15 LABEL "" GOTO 6170 

6270 

ON 

KEY 

16 LABEL "700,1" GOTO D7001 

6280 

END LOOP 

6290 

P7040; 

1 


6300 



Program$=" : , 704 , 0" 

6310 



GOTO Subend 

6320 

P7041: 


i 

6330 



Pr ogram$= " : , 7 0 4 , 1 " 

6340 



GOTO Subend 

6350 

P7000 : 


Prograiti$=" : , 700, 0" 

6360 

GOTO Subend 

6370 

P7001 : 


j 

6380 



Program$=" : , 700 , 1" 

6390 



GOTO Subend 


6400 D7040 : 

6410 

6420 

6430 D7041: 

6440 

6450 

6460 D7000: 
6470 

6480 D7001 : 

6490 

6500 

6510 Subend 

6520 

6530 

6540 

6541 

6542 
6560 
6580 
6590 
6600 
6601 

6605 

6606 
6610 


Data$=": ,704,0” 

GOTO Subend 

Data$=" : ,704 , 1” 

GOTO Subend 
Data$=": ,700,0" 

GOTO Subend 

Data$=" : ,700,1" 

GOTO Subend 

i 

BEEP 

Flag=Flag+l 

IF Flag=2 THEN 6590 

DISP 

DISP "SELECT NEXT OPTION"; 
CONTROL KBD, 2 ; 2 
IF Flag<=l THEN 6170 
PRINT "PROGRAM MSI IS ";Program$ 
PRINT "DATA MSI IS ";Data$ 

DISP 

CONTROL KBD , 2 ; 0 

DISP 

SUBEND 



ATTACHMENT D - SUMS SOFTWARE LISTING 
( 3 ) DC_SUMS : 



10 1 
20 1 
30 ! 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


FF CLEARS SCREEN 


RE- STORE "DC SUMS" 

NOTE THIS VERSION USED WITH DATA FROM DYNAMIC CALIBRATION 
IT ASSUMES N SCAN IN ANY ORDER 
!RJD REVISION 11/10/88 
OPTION BASE 1 
GCLEAR 

STATUS KBD, 9 ;Keyb * _ . 

IF (BIT (Kevb, 5) =1) THEN CALL Config320 (Program?, Data?) 

IF (BIT (Keyb, 5) =0) THEN CALL Config36 (Program?, Data?) 

MASS STORAGE IS Program? 

DIM Cat$(l) [80] , Image?[80] ,Info$[80] 

DIM Lsci (72) ,Hsci (360) ,Me(ll,2) ,Curr(36) ,Lut(16,32) ,Dat(21) 
DIM Peaks (500,11) , Lpeaks (500,3) 

ASSIGN @Ab TO "LUT" 

ENTER @Ab;Lut (*) 

DISP 

Printer=CRT 
PRINTER IS Printer 
PRINT CHR$ ( 12 ) ! 

Mass_scale (Me ( * ) ) 

! CAT 
PEN 0 

PLOTTER IS 3, "INTERNAL" 

PEN 1 
ALPHA ON 
GRAPHICS OFF 
BEEP 
WAIT 1 
BEEP 

MASS STORAGE IS Data$ 

DISP 

DISP "INPUT FILE NAME"; 

INPUT File$ 

CAT TO Cat$(*) ; SELECT File?, NO HEADER 
Nscans=INT ( VAL ( Cat? (l)[38,45])/3.5) 

REDIM Peaks (Nscans , 11) , Lpeaks (Nscans , 3 ) 

ALLOCATE INTEGER Scan (Nscans , 448) , Eng (Nscans , 12 ) 

BEEP 
DISP 

DISP "PRINTER (P) OR SCREEN (S) "; 

INPUT C? 

IF C?[1,1]="S" OR C?[l, l]="s" 

IF C?[1,1]="P" OR C?[l,l)="p" 

BEEP 

GOTO 390 
Printer=701 
PRINTER IS Printer 
BEEP 
DISP 

II 

DISP "PLOTTER (P) OR SCREEN (S) 

INPUT C? 

IF C?[1,1]="S" OR C? [1, l]="s" 

IF C?[1,1]="P" OR C?[1,1]="P" 

BEEP 

GOTO 490 
BEEP 
DISP 

DISP "SELECT PEN"; 

INPUT Pen 


THEN 480 
THEN 460 


THEN 660 
THEN 570 


610 PEN Pen 

620 PLOTTER IS 705,"HPGL" 

630 PRINTER IS 705 

640 PRINT "VS10" 

650 PRINTER IS Printer 

660 ASSIGN @Ab TO File$ 

670 ENTER @Ab;Info$ 

680 ENTER @Ab;Dat(*) 

690 ENTER @Ab;Scan(*) 

700 MASS STORAGE IS Program$ 

710 DISP 

720 DISP "WANT AUTO PEAK PICKER "? 

730 Yesno(R5) 

740 ON R5 GOTO 750,760,710 
750 Auto=l 


760 Scisep: 
770 


FOR Scann=l TO Nscans 
780 Engc=0 

790 FOR 1=1 TO 12 

800 Eng_test=INT (Scan(Scann, I)/256) 

8io IF Eng_test<>4 THEN 840 

820 Engc=Engc+l 

830 Eng ( Scann , I ) =BINAND (Scan ( Scann , I ) ,255) 

840 NEXT I 

850 W=Eng(Scann, 1) -103 l ******************************************* 

860 IF W>0 AND W<5 THEN 920 

870 BEEP 

880 WAIT 1 

890 PRINT "INTERLACE NUMBER DOES NOT CHECK" 

900 BEEP 

910 ! PAUSE 

920 Highc=0 

930 Lowc=W+13 

940 Lown=0 

950 FOR 1=13 TO 444 

960 Rr=0 

970 IF I=Lowc THEN 1030 

980 Highc=Highc+l 

990 Sig=BINAND( Scan (Scann, I) ,31) 

1000 Ran=BINAND (Scan (Scann, I) ,480)/32 

1010 Hsci (Highc) =Lut (Ran+1 , Sig+1) 

1020 GOTO 1080 

1030 Lown=Lown+l ! LOW MASS HERE 

1040 Sig=BINAND (Scan (Scann, I) ,31) 

1050 Ran=BINAND (Scan (Scann, I) ,480)/32 

1060 Lsci (Lown) =Lut (Ran+1 , Sig+1) /2 

1070 Lowc=Lowc+6 

1080 NEXT I 

1090 GOSUB Graphplot 
1100 NEXT Scann 
1110 GOTO End 

1120 ! "GRAPHPLOT" 


1130 Graphplot: 

1140 

1150 

1160 

1170 DEG 
1180 ! Lmass=l 
1190 Xl=280 
1200 X2=0 


j*********************************************************** 

G CLEAR 
ALPHA OFF 
GRAPHICS ON 

1 THIS SELECTS THE LOW MASS PLOT OPTION REMOVE ! 

1360 NOTE XI USED IN STEP LABEL ETC 


1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
S (Y2- 
1300! 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430! 
1440! 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770! 
1780 
1790 


X5=Xl+72* (Lmass=l) !IF SELECT LOW MASS PLOT X5=Xl+72 
X3=X5+. 1*ABS (X2-X5) 

X4=X2- . 1*ABS (X2-X5) 

Y1=LGT ( 1 . E-13 ) 

Y2=LGT ( 1 . E-9 ) 

Y3=Y1- . 1*ABS ( Y2-Y1) 

Y4=Y2+. 1*ABS (Y2-Y1) 

WINDOW X3 X4 Y3 Y4 

CLIP X5+ ( ! 05*ABS (X2-X5) ) , X2- ( . 05*ABS (X2-X5) ) , Yl- ( . 05*ABS ( Y2-Y1 ) ) ,Y2+( .05*AB 
Yl)) 

CLIP ON 
PENUP 

DIM A$ [ 80 ] , B$ [ 80 ] 

A$="STEP NUMBER" 

B$="ION CURRENT IN AMPERE" 

MOVE X5 , Yl 
DRAW X5,Y2 
DRAW X2,Y2 
DRAW X2 , Yl 
DRAW X5 , Yl 
J=1 


FOR X=X5 TO X2 STEP X2-X5 
FOR Y=Y1 TO Y2-1 STEP 1 
MOVE X , Y ! DRAW DECADE LINES 
DRAW X2,Y ! DRAWS DECADE LINES 
FOR 1=1 TO 10 STEP 1 
MOVE X, Y+LGT (I) 

IPLOT . 01*J* (X2-X5) ,0,1 

I PLOT 01*J* (X2-X5) ,0,1 

IF I<10 THEN 1520 

IPLOT J*. 04* (X2-X5) , 0, 1 

IPLOT J* (-. 04) * (X2-X5) ,0,1 

NEXT I 

NEXT Y 

PENUP 

J=-l 

NEXT X 

FOR I=Y1 TO Y2 STEP 1 
MOVE X5-. 045* (X2-X5) , I- . 015* (Y2-Y1) 
CLIP OFF 
LORG 6 

CSIZE 2.5, .6 
LABEL "10" 

MOVE X5- . 016* (X2-X5) ,1 
LORG 5 
LABEL INT(I) 

CLIP ON 
NEXT I 
CLIP OFF 

MOVE X5- (X2-X5) * . 100 , (Y2+Yl)/2 
LDIR 90 
CSIZE 4, .6 
LORG 6 
LABEL (B$) 

LORG 1 
PENUP 
LDIR 0 

GOTO 630 ! BY PASS LABEL STEP 

FOR 1=0 TO XI STEP 10 
MOVE 1,-9 


! DIRECTION OF YAXIS NAME 
! SIZE OF YAXIS MAME 
! CENTERS AND LOCATES YAXIS NAME 

! NORMAL VALUE FOR LORG 

! NORMAL VALUE FOR LDIR 



1800 I PLOT 0 , - . 05 
1810 I PLOT 0 , + . 05 
1820 NEXT I 
1830 CSIZE 3 
1840 LORG 5 

1850 FOR 1=50 TO XI STEP 50 

1860 MOVE I, -9. 00 

1870 I PLOT 0,-.10 

1880 IPLOT 0,+.10 

1890 MOVE I, -8. 85 

1900 LABEL I 

1910 NEXT I 

1920 MOVE (X2+X1) /2,Y2+.105*(Y2-Y1) 

1930 CSIZE 3,. 6 1SIZE OF XAXIS NAME 

1940 LORG 6 ! CENTERS AND LOCATES XAXIS NAME 

1950 LABEL Info$ [1, 25] &" "&Info$ [ 50 , 80] 

1960 LORG 3 

1970 MOVE 250,-9.2 

1980 LABEL USING "15A, 22A, 8A, DDDD" ; "DATA FROM " , File$ , "SCAN # ",Scann 

1990 LORG 5 

2000 CSIZE 3 

2010 FOR 1=1 TO 11 

2020 MOVE Me (I, 2) ,Y1 

2030 IPLOT 0 , + . 05 

2040 IPLOT 0 , - . 05 

2050 MOVE Me(I, 2) ,-13.1 

2060 LABEL Me (1,1) 

2070 NEXT I 
2080 CSIZE 5 
2090 LORG 4 

2100 MOVE (X1-X2 ) /2 , Yl- . 4 
2110 LABEL "MASS NUMBER" 

2120 MOVE 0,-12. 9 ! LGT ( 1 . 24E-13 ) 

2130 FOR 1=1 TO XI 
2140 DRAW I , LGT (Hsci (I) ) 

2150 NEXT I 

21601 DUMP GRAPHICS #701 

2170 IF Lmass=0 THEN GOTO Bypass ! BY PASS LOW MASS PLOT 

2180 Lowmass: ! 

2190 MOVE XI, -13. 2 ! LGT ( 6 . 2E-14 ) 

2200 FOR 1=1 TO 72 

2210 DRAW Xl+I , LGT (Lsci (I ) ) 

2220 NEXT I 
2230 Bypass: ! 

2240 LORG 1 

2250 CSIZE 3 

2260 MOVE Xl-30,-9.5 

2270 IF Plotter=0 THEN 2280 

2280 ALPHA ON 

2290 PRINT 

2300 PRINT Info$ 

2310 PRINT "DATA FROM ";File$ 

2320 PRINT " FOR SCAN # "?Scann 

2330 PRINT USING "30A, 15A, 10A" ? " " , "ENG UNITS", "DIT DATA" 

2340 Nl=Eng(Scann, 1) -103 
2350 N5=Eng(Scann, 1) 

2360 PRINT USING 2700 ; "INTERLACE NUMBER ";N1,N5 
2370 Nl=Eng(Scann, 2) *20/255 
2380 N5=Eng(Scann, 2) 

2390 PRINT USING 2700; "+15 VOLTS "?N1,N5 



2400 Nl=Eng(Scann, 3) * (-30)/255 
2410 N5=Eng(Scann, 3) 

2420 PRINT USING 2700; "-15 VOLTS ";N1,N5 
2430 Nl=Eng (Scann, 4) *5.E+3/255 

2440 N5=Eng( Scann, 4) 

2450 PRINT USING 2700; "ION PUMP VOLTAGE" ;N1 , N5 
2460 Nl=Eng(Scann,5)*2.5-110 

2470 N5=Eng (Scann , 5 ) 

2480 PRINT USING 2700; "ION SOURCE TEMP DEG F";N1,N5 
2490 Nl=Eng (Scann, 6) *1. 105-93 . 136 
2500 N5=Eng (Scann, 6) 

2510 PRINT USING 2700; "PRE AMP TEMP DEG F";N1,N5 
2520 Nl=Eng (Scann, 7) *10/255 
2530 N5=Eng (Scann , 7 ) 

2540 PRINT USING 2700 ;"+5 VOLTS ";N1,N5 
2550 Nl=Eng(Scann, 8) *10/255 
2560 N5=Eng(Scann,8) 

2570 PRINT USING 2700; "A/D REF VOLTAGE ";N1,N5 
2580 Nl=Eng (Scann, 9) *100/134 
2590 N5=Eng(Scann,9) 

2600 PRINT USING 2700 ; "EMISSION CURR IN MICRO AMP";N1,N5 
2610 Nl=Eng(Scann, 10) *100/134 
2620 N5=Eng (Scann, 10) 

2630 PRINT USING 2700 ; "COLLECTOR CURR IN MICRO AMP";N1,N5 
2640 Nl=Eng (Scann, 11) *100/255 
2650 N5=Eng( Scann, 11) 

2660 PRINT USING 2700 ; "ELECTRON ACC VOLTAGE ";N1,N5 
2670 Nl=Eng(Scann, 12) *10/255 
2680 N5=Eng (Scann, 12) 

2690 PRINT USING 2700; "REF ION ACC VOLTAGE" ;N1,N5 
2700 IMAGE 30A, DDDD. DD, 10X, DDD 

2710 Image$=" DDD , 2 X , MD . DDE , 4X , DDD , 2 X , MD . DDE , 4X , DDD , 2X,MD. DDE , 4X , DDD , 2 X , MD . DDE " 
2720 GOTO Of f_prt_all 
2730 Bkg=l. 24E-13 
2740 FOR 1=1 TO 90 

2750 PRINT USING Image$ ; I , Hsci ( I) -Bkg , 1+90 , Hsci ( 90+1) -Bkg , 1+18 0 , Hsci ( 1+18 0 ) -Bk 

g, 1+270, Hsci (1+270) -Bkg 

2760 NEXT I 

2770 Off prt all: ! 

2780 ~ - ! IF Auto = 1 THEN AUTOMATIC PEAK PICKER 

2790 GOSUB Peakpicker 

2800 GOSUB Inststat 

2810 RETURN 

2820 Printout: ! 

2830 PRINTER IS 701 

2840 PRINT TAB ( 15 ); "ENGINEERING DATA " 

2850 FOR 1=1 TO 12 

2860 PRINT TAB (15) ; Eng (Scann, I) 

2870 NEXT I 
2880 PRINT 

2890 PRINT TAB ( 15 ); "SCIENCE DATA " 

2900 J=0 

2910 FOR 1=1 TO XI 
2920 J=J+1 

2930 IF J=INT(J/5) *5=J THEN 2970 
2940 PRINT USING 2950 ; I , Hsci (I ) 

2950 IMAGE 3X, DDD, 3X,MD. DDE 
2960 GOTO 2990 

2970 PRINT USING 2980 ; I , Hsci (I ) , Lsci ( J/5) 

2980 IMAGE 3 X , DDD , 3 X , MD . DDDE , MD . DDDE 


2990 NEXT I 
3000 PRINT 
3010 1 

3020 PRINTER IS 1 
3030 RETURN 
3040 Peakpicker: ! 

3050 IF Auto=l THEN 3140 

3060 PRINT 

3070 DISP 

3080 ALPHA ON 

3090 GRAPHICS OFF 

3100 DISP "WANT PEAK PICKER DATA 
3110 Yesno (R5) 

3120 ON R5 GOTO 3140,3130,3100 

3130 RETURN 

3140 PRINTER IS CRT 

3150 Basi=l . 24E-13 

3160 FOR 1=1 TO 11 

3170 IF Auto=l THEN 3230 

3180 PRINT CHR$ ( 12 ) ! CLEARS SCREEN 

3190 PRINT USING "/////" 

3200 PRINT "CURRENTS HAVE BASE VALUE OF -1.24E-13 REMOVED" 

3210 PRINT 

3220 PRINT "FOR MASS # ";Me(I,l);" CURRENTS ARE" 

3230 MAT Curr= (0)*Curr 
3240 Count=l 

3250 FOR J=Me (I , 2 ) -4 TO Me(I,2)+4 
3260 IF Auto=l THEN 3280 

3270 PRINT USING "DDD, 5X,MD. DDE" ; J,Hsci (J) -Basi 

3280 Curr (Count) =Hsci (J) -Basi 

3290 Count=Count+l 

3300 NEXT J 

3310 Overcurrent=0 

3320 MAT SORT Curr(*) 

3330 IF Curr (36) >6 . 5E-11 THEN Overcurrent=l 

3340 Ave_current=(Curr(36-Overcurrent)+Curr(35-Overcurrent) )/2 
3350 IF Auto=l THEN 3450 
3360 PRINT 

3370 PRINT USING "30A,MD. DDE" ; " THE AVERAGE CURRENT IS " ; Ave_current 

3380 DISP 

3390 DISP "IS AVERAGE CURRENT OK ?"; 

3400 Yesno (R5) 

3410 ON R5 GOTO 3450,3420,3380 
3420 DISP 

3430 DISP "INPUT CORRECT AVE_CURRENT" ? 

3440 INPUT Ave_current 

3450 Peaks (Scann, I) =Ave_current 

3460 DISP 

3470 NEXT I 

3480 PRINTER IS Printer 

3490 FOR 1=21 TO 67 STEP 23 

3500 MAT Curr= (0)*Curr 

3510 Count=l 

3520 FOR J=-3 TO 3 

3530 Curr (Count) =Lsci (I+J) 

3540 Count=Count+l 

3550 NEXT J 

3560 MAT SORT Curr(*) 

3570 Ave=(Curr(36)+Curr(35) )/2 

3580 IF 1=21 THEN Lpeaks (Scann, 1) =Ave-6 . 2E-14 



3590 IF 1=44 THEN Lpeaks (Scann, 2 ) =Ave-6 . 2E-14 
3600 IF 1=67 THEN Lpeaks (Scann, 3 ) =Ave-6 . 2E-14 
3610 NEXT I 
3620 PRINT 

3630 PRINT " MASS NUMBER ION CURRENT” 

3640 PRINT USING " 2 5A,MD. DDE" ; "AVERAGE M/E 4 CURRENT" , Lpeaks (Scann, 1) 

3650 PRINT USING " 2 5A,MD. DDE" ; "AVERAGE M/E 2 CURRENT" , Lpeaks (Scann , 2 ) 

3660 PRINT USING "25A, MD. DDE" ; "AVERAGE M/E 1 CURRENT" , Lpeaks (Scann , 3 ) 

3670 PRINT 

3680 PRINT " MASS NUMBER ION CURRENT" 

3690 FOR 1=1 TO 11 

3700 PRINT USING "5X,DDD,20A,MD. DDE" ;Me (1,1) ," ", Peaks (Scann 

, 1 ) 

3710 NEXT I 
3720 PRINT 
3730 RETURN 


3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

, Stat 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 


Inststat : 


FOR Fill_test=445 TO 448 

IF Scan (Scann, Fill_test)=0 THEN RETURN 

Stat_test=2 A 16+Scan (Scann, Fill_test) 

W47=INT (Stat_test/256) 

W48=Stat_test-W47*2 56 

PRINT USING "27A, DDDDD, 3X, DDD, 3X, DDD" ; "FOR SCAN 


test,W47,W48 

PRINT 


PRINT "FOR SCAN # ";Scann 

PRINT " INSTRUMENT STATUS" 

Flag=BINAND(W48 , 1) 

ON Flag+1 GOSUB 4300,4320 

PRINT USING 4580; "INLET VALVE ",Status$ 

Flag=BINAND (W48 , 2 ) /2 

ON Flag+1 GOSUB 4300,4320 

PRINT USING 4580; "RANGE VALVE ", Status? 

Flag=BINAND ( W4 8 , 4 ) /4 

ON Flag+1 GOSUB 4300,4320 

PRINT USING 4580; "PROTECTION VALVE" , Status? 

Flag=BINAND (W48 , 8 ) /8 

ON Flag+1 GOSUB 4540,4560 

PRINT USING 4580; "SYSTEM RESET" , Status? 

Flag=BINAND (W48,16)/16 

ON Flag+1 GOSUB 4540,4560 

PRINT USING 4580; "UAMS RESET ", Status? 

Flag=BINAND (W48,32)/32 

ON Flag+1 GOSUB 4500,4480 

PRINT USING 4580; "DECODE ", Status? 

Flag=BINAND (W48 , 64 ) /64 

ON Flag+1 GOSUB 4520,4340 

PRINT USING 4580; "BUFFER OVERFLOW ", Status? 
Flag=BINAND (W48 , 128 ) /128 
ON Flag+1 GOSUB 4460,4340 
PRINT USING 4580; "PROCESSOR ", Status? 

PRINT 

Flag=BINAND (W47 , 1) 

ON Flag+1 GOSUB 4440,4340 
PRINT USING 4580; "PROGRAM ", Status? 
Flag=BINAND (W47 , 4 ) /4 
ON Flag+1 GOSUB 4400,4340 

PRINT USING 4580; "INTERNAL PRESSURE" , Status? 
Flag=BINAND (W47 , 8 ) /8 


1 STATUS WORD " 



4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 End: 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 


ON Flag+1 GOSUB 4420,4340 

PRINT USING 4580; "INLET PRESSURE" , Status? 
Flag=BINAND(W47 , 16)/16 
ON Flag+1 GOSUB 4360,4380 

PRINT USING 4580 ; "INSTRUMENT POWER" , Status? 

Flag=BINAND(W47,32)/32 

ON Flag+1 GOSUB 4360,4380 

PRINT USING 4580; "ION PUMP POWER" , Status? 
Flag=BINAND (W47 , 64 ) /64 
ON Flag+1 GOSUB 4420,4340 

PRINT USING 4580; "ION PUMP CURRENT" , Status? 

PRINT 

GOTO 4590 

Status?="OPEN" 

RETURN 

Status ?=" CLOSE" 

RETURN 

Status?="OK" 

RETURN 

Status?="ON" 

RETURN 

Status?="OFF" 

RETURN 

Status?="LOW" 

RETURN 

Status?="HIGH" 

RETURN 

Status?= "ERROR" 

RETURN 

Status ?="HALT" 

RETURN 

Status?=" SEARCHING" 

RETURN 

Status?="ID FOUND" 

RETURN 

Status?="OVER FLOW" 

RETURN 

Status?="OPERATE RESET" 

RETURN 

Status?=" RE LEASE RESET" 

RETURN 

IMAGE 25A, 15A 
NEXT Fill_test 
RETURN 

i 

PRINT "END" 

DISP 
PEN 0 

PLOTTER IS 3, "INTERNAL" 

PRINTER IS CRT 

PEN 1 

BEEP 

DISP 

DISP "WANT TO STORE THE DATA FROM PEAKS "; 
Yesno (R5) 

ON R5 GOTO 4730,4850,4690 
DISP 

MASS STORAGE IS Data? 

DISP "INPUT FILE NAME FOR PEAKS DATA FILE"; 
INPUT Dat? 


L=LEN (Dat$) 

IF L>10 THEN 4730 
CREATE BDAT Dat$ , Nscans , 88 
ASSIGN @Ab TO Dat$ 

OUTPUT §Ab; Peaks (*) 

PRINT "DATA STORED ON DATA FILE 
BEEP 

MASS STORAGE IS Program? 


4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 

4850 END 

4860 SUB Yesno (R5) 
4870 LOOP 
4880 ON KEY 1 LABEL 

4890 ON KEY 2 LABEL 

4900 ON KEY 3 LABEL 

4910 ON KEY 4 LABEL 

4920 ON KEY 5 LABEL 

4930 ON KEY 6 LABEL 

4940 ON KEY 7 LABEL 

4950 ON KEY 8 LABEL 

4960 END LOOP 
4970 R5=l 
4980 GOTO Subend 
4990 R5=2 

5000 GOTO Subend 
5010 R5=3 

5020 Subend: ! 

5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 

5200 PinternalO 
5210 
5220 

5230 Pinternall 
5240 
5250 

5260 P7000 : 

5270 

5280 P7001 : 

5290 
5300 

5310 DinternalO 
5320 
5330 

5340 Dinternall 
5350 
5360 


'YES" GOTO 4970 
GOTO 4870 
'" GOTO 4870 
'NO" GOTO 4990 
'" GOTO 4870 
"• GOTO 4870 
'" GOTO 4870 
'REPEAT ?" GOTO 5010 


SUBEND 

SUB Conf ig3 6 (Program?, Data$) 
DISP 

CONTROL KBD, 2 ; 1 
DISP "SELECT OPTION"; 

LOOP 


ON 

KEY 

0 

LABEL 

"PROGRAM" GOTO 5070 

ON 

KEY 

1 

LABEL 

"INT, 0" 

GOTO 

PinternalO 

ON 

KEY 

2 

LABEL 

"INT , 1" 

GOTO 

Pinternall 

ON 

KEY 

3 

LABEL 

"700,0" 

GOTO 

P7000 

ON 

KEY 

4 

LABEL 

"700,1" 

GOTO 

P7001 

ON 

KEY 

5 

LABEL 

"DATA " 

GOTO 

5080 

ON 

KEY 

6 

LABEL 

"INT, 0" 

GOTO 

DinternalO 

ON 

KEY 

7 

LABEL 

"INT, 1" 

GOTO 

Dinternall 

ON 

KEY 

8 

LABEL 

"700,0" 

GOTO 

D7 000 

ON 

KEY 

9 

LABEL 

"700,1" 

GOTO 

D7001 


END LOOP 

t 
• 

Program$=" : INTERNAL4 , 0" 
GOTO Subend 

i 

Program$=" : INTERNAL4 , 1" 
GOTO Subend 
Program$=" : ,700, 0" 

GOTO Subend 

j 

Program$=" : ,700,1" 

GOTO Subend 

i 

Data$=" : INTERNAL4 , 0" 

GOTO Subend 

i 

Data$=" : INTERNAL, 4 , 1" 

GOTO Subend 


" ?Dat$ 



5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 


D7000: 
D7001: ! 


Subend : 


Data$=": ,700,0" 
GOTO Subend 

Data$=": ,700,1" 
GOTO Subend 


BEEP 
Flag=Flag+l 
IF Flag=2 THEN 5490 
DISP 

DISP "SELECT NEXT OPTION"; 

IF Flag<=l THEN 5080 
PRINT "PROGRAM MSI IS ";Program$ 
PRINT "DATA MSI IS ";Data$ 
SUBEND 

SUB Conf ig320 (Program$ , Data?) 

DISP 

DISP "SELECT OPTION"; 

CONTROL KBD , 2 ; 1 
LOOP 

ON KEY 1 LABEL "PROGRAM" GOTO 5560 
ON KEY 2 LABEL "704,0" GOTO P7040 
ON KEY 3 LABEL "" GOTO 5560 
ON KEY 4 LABEL "704,1" GOTO P7041 
ON KEY 5 LABEL "700,0" GOTO P7000 
ON KEY 6 LABEL "" GOTO 5560 

ON KEY 7 LABEL "" GOTO 5560 

ON KEY 8 LABEL "700,1" GOTO P7001 

ON KEY 9 LABEL "DATA " GOTO 5560 

ON KEY 10 LABEL "704,0" GOTO D7040 
ON KEY 11 LABEL "" GOTO 5560 

ON KEY 12 LABEL "704,1" GOTO D7041 

ON KEY 13 LABEL "700,0" GOTO D7000 

ON KEY 14 LABEL "" GOTO 5560 

ON KEY 15 LABEL "" GOTO 5560 

ON KEY 16 LABEL "700,1" GOTO D7001 
END LOOP 


P7040 : 


P7041: 


P7000 : 


GOTO Subend 
P7001: ' 


Program$=" : ,704,0" 
GOTO Subend 

i 

Program$=" : ,704,1" 
GOTO Subend 
Program$=" : ,700,0" 


i 


D7040 : 

D7041 : 

D7000 : 
D7001 : ! 

Subend : ! 


Program$=" ; , 7 00 , 1" 
GOTO Subend 

Data$=": ,704,0" 
GOTO Subend 

Data$=":, 704,1" 
GOTO Subend 
Data$=": ,700,0" 
GOTO Subend 

Data$=": ,700,1" 

GOTO Subend 



5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 


BEEP 

Flag=Flag+l 

IF Flag=2 THEN 6040 

DISP 

DISP "SELECT NEXT OPTION"? 

CONTROL KBD, 2 ; 2 

IF Flag<=l THEN 5560 

PRINT "PROGRAM MSI IS ";Program$ 

PRINT "DATA MSI IS ";Data$ 

DISP 

CONTROL KBD , 2 ? 0 

DISP 

SUBEND 

SUB Mass_scale (Me ( * ) ) 

! "STEP AMU" 

i cal OF STEP LOCATIONS FROM TWO KNOWN STEPS AND AMU 
Stepl=27 
Amul=44 
Step2=251 
Amu2=12 

A= (LGT ( Amu2 ) -LGT (Amul) ) / (Step2-Stepl) 

B=LGT ( Amul ) -A*Stepl 
FOR 1=1 TO 11 
READ Amu 

DATA 44,40,32,30,28,22,20,18,16,14,12 
Step=INT ( (LGT (Amu) -B)/A+.5) 

Me(I,l)=Amu 
Me (I , 2) =Step 
NEXT I 

SUBEND 


ATTACHMENT D 


- SUMS SOFTWARE LISTING 


(4) SUMS90 : 



10 ! RE-STORE "SUMS90" 

20* 

30 ! REVISION 5/15/90 RJD 

40 OPTION BASE 1 

50 DIM Ps ( 50 , 2 ) 

60 1READ DATA FROM HARD DISK FILE 

70 INTEGER Mass_scale(12480) 

80 INTEGER Screen ( 12480 ) 

90 DIM Hi$ [512 ] 

100 INTEGER Row, Column , Index, Aa , Bb,Maxstep 

110 Maxstep=280 

120 DIM Sums (380) , Pea (7 ) 

130 Config36 (Program$ , Data$) 

140 1 Config320 (Program$ , Data$) 

150 MASS STORAGE IS Data$ 

160 CAT 

170 DISP "INPUT FILE NAME"; 

180 INPUT Df ile$ 

190 ASSIGN @Ab TO Dfile$ 

200 ENTER @Ab;Sums(*) 

210 Num_scan=Sums (4) 

220 ALLOCATE Peaks (Num_scan , 12 ) 

230 ASSIGN @Ab TO Dfile$ 

240 FOR Sk=l TO 0 ! NUMBER OF SCANS TO SKIP 

250 ENTER @Ab ; Sums ( * ) 

260 NEXT Sk 

270 GOSUB Graphplot 

280 Dumpcount=0 

290 ! Page 

300 I OUTPUT 701 USING "/" 

310 Clear 

320 FOR Jj=l TO Num_scan 

330 ENTER @ Ab ; Sums ( * ) 

3401 GOSUB Printout 

350 IF Sums (5) <0 THEN 540 

360 Peaks (Jj , 12)=Sums(8) *3 . 6E+3+Sums (9) *60+Sums(10)+Sums (11)/1000 
370 GLOAD Mass_scale (*) 

380 GOSUB Englabel 

390 MOVE 0 , LGT ( 1 . E-13 ) 

400 FOR 1=14 TO Maxstep+13 

410 IF Sums (I) =0 THEN Sums (I) =1.E-14 

420 DRAW 1-13, LGT (Sums (I) ) 

430 NEXT I 

440 ! DUMP GRAPHICS #701 

450 ! Dumpscreen 

460 1 OUTPUT 701 USING "/" 

470 Dumpcount=Dumpcount+l 

480 IF Dumpcount=2 THEN 500 

490 IF Dumpcount<2 THEN 530 

5001 Page 

510 1 OUTPUT 701 USING "/" 

520 Dumpcount=0 

530 GOSUB Peakpicker 

540 NEXT Jj 

550 1 GOSUB Peakstore 

560 PRINTER IS 701 

570 FOR 1=1 TO Num_scan 

580 ! PRINT USING 247 ; I , Peaks ( I , 1) , Peaks (I , 2 ) , Peaks (I , 3 ) , Peaks (I , 4 ) , Peaks ( I , 5 ) , P 
eaks(I,10) , Peaks (I, 11) 

590 1 


A ■» > . 



600 ! 

610 IMAGE DD, 7 (IX, MD. DDE) 

620 NEXT I 
630 PRINTER IS 1 
640 GOSUB Peakplot 
650 PAUSE 

660 Graphplot : >*********************** 

670 ! "GRAPHPLOT" 

680 IF Cc<>0 THEN 690 

690 PEN 1 

700 PLOTTER IS 3, "INTERNAL" 

710 GINIT 

720 ALPHA ON 

730 GRAPHICS OFF 

740 ! DISP "PLOTTER OR SCREEN"; 

750 C$="S" 

760 IF C$="S" OR C$="s" THEN 810 
770 DISP "SELECT PEN" ; 

780 INPUT Pen 
790 PEN Pen 

800 PLOTTER IS 705,"HPGL" 

810 ! 

820 GCLEAR 

830 ALPHA OFF 

840 GRAPHICS ON 

850 DEG 

860 Xl=Maxstep !360 

870 X2=0 

880 X3=X1+. 1*ABS (X2-X1) 

890 X4=X2- . 2*ABS (X2-X1) 

900 Y1=LGT ( 1 . E-13 ) 

910 Y2=LGT ( 1 . E-9 ) 

920 Y3=Y1-. 1*ABS (Y2-Y1) 

930 Y4=Y2+ . 1*ABS ( Y2-Y1) 

940 WINDOW X3,X4,Y3,Y4 
950! FRAME 

960 !MOVE X3 , Y1+ . 01*Y1 
970! DRAW X3,Y3 
980! DRAW X1+.06*X1,Y3 
990 !MOVE X2-.06*X1,Y4 


*********************** 


** 


* 


********** 


1000! DRAW X4,Y4 

1010! DRAW X4,Y2-.01*Y1 

1020 CLIP X1+ ( . 05*ABS (X2-X2 ) ) , X2- ( . 05*ABS (X2-X1) ) , Yl- 
S ( Y2-Y1) ) 

1030! CLIP ON 
1040 PENUP 

1050 DIM A$[80] ,B$[80] 

1060 A$="STEP NUMBER" 

1070 B$="ION CURRENT IN AMPERE" 

1080 MOVE XI, Y1 
1090 DRAW XI, Y2 
1100 DRAW X2,Y2 
1110 DRAW X2,Y1 
1120 DRAW XI, Y1 
1130 J=1 

1140 FOR X=X1 TO X2 STEP X2-X1 
1150 FOR Y=Y1 TO Y2-1 STEP 1 
1160! MOVE X,Y ! DRAW DECADE LINES 

1170! DRAW X2,Y ! DRAWS DECADE LINES 
1180 FOR 1=1 TO 10 STEP 1 


. 05*ABS (Y2-Y1) ) ,Y2+(.05*AB 



1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

15001 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 


MOVE X, Y+LGT (I) 

IPLOT . 01*J* (X2-X1) ,0,1 

IPLOT 01*J* (X2-X1) , 0, 1 

IF I<10 THEN 1250 

IPLOT J* . 04* (X2-X1) ,0,1 

IPLOT J*(-.04)* (X2-X1) ,0,1 

NEXT I 

NEXT Y 

PENUP 

J=-l 

NEXT X 

FOR I=Y1 TO Y2 STEP 1 

MOVE XI- .045* (X2-X1) , I- . 015* (Y2-Y1) 


CLIP OFF 
LORG 6 

CSIZE 2.5, .6 
LABEL "10" 

MOVE XI- . 016* (X2-X1) ,1 
LORG 5 
LABEL INT(I) 

CLIP ON 
NEXT I 
CLIP OFF 

MOVE XI- (X2-X1) * . 100 , (Y2+Y1) /2 
LDIR 90 
CSIZE 4, .6 
LORG 6 
LABEL (B$) 

LORG 1 
PENUP 
LDIR 0 

GOTO 630 ! BY PASS LABEL STEP 

FOR 1=0 TO XI STEP 10 

MOVE 1,-9 

IPLOT 0 , - . 05 

IPLOT 0 , + . 05 

NEXT I 

CSIZE 3 

LORG 5 

FOR 1=50 TO XI STEP 50 

MOVE I, -9. 00 

IPLOT 0,-.10 

IPLOT 0,+.10 

MOVE I, -8. 85 

LABEL I 

NEXT I 

MOVE (X2+X1)/2,Y2+.100* (Y2-Y1) 
CSIZE 4.5, .6 
LORG 6 
LABEL A$ 

i 


! DIRECTION OF YAXIS NAME 
! SIZE OF YAXIS MAME 
! CENTERS AND LOCATES YAXIS NAME 

! NORMAL VALUE FOR LORG 

1 NORMAL VALUE FOR LDIR 


! SIZE OF XAXIS NAME 
! CENTERS AND LOCATES XAXIS NAME 


! "STEP_AMU" 

! CAL OF STEP LOCATIONS FROM TWO KNOWN STEPS AND AMU 
! DISP "INPUT STEP, 1 AMU 1"; 

1 INPUT Stepl, Amul 

! Stepl=100 . 5 !UTD INTEGRATION TEST 

Stepl=26 . 5 ! IVT INTEGRATION TEST 

Amu 1=4 4 

! DISP "INPUT STEP 2, AMU 2"? 

1 INPUT Step2 , Amu2 


/'■ . 


r 



1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

4 ) 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 


! Step2=221 ! UTD INTEGRATION TEST 

Step2=224 ! IVT INTEGRATION TEST 

Amu2=14 

A= (LOG (Amu2 ) -LOG (Amul) ) / (Step2-Stepl) 

B=LOG(Aitiul) -A*Stepl 

i PRINT " LGT ( AMU ) = SLOPE *STEP+CONSTANT" 

! PRINT "SLOPE = ",*A?" CONSTANT = ";B 
I PRINT 

l PRINT "AMU", "STEP", "STEP RANGE" 

LORG 5 
CSIZE 3 
FOR 1=1 TO 50 
! READ Amu 

[DATA 44,40,32,30,28,22,20,18,16,14,12 
Step=INT ( (LOG (I) -B) /A+ . 5) 

Ps(I,l)=I 
Ps (I , 2 ) =Step 
NEXT I 

FOR 1=12 TO 50 STEP 2 
I PRINT Amu , Step , Step-2 ; " - " ; S tep+2 

IF 1=24 OR 1=26 OR 1=34 OR 1=38 OR 1=42 OR 1=46 OR 1=48 THEN 2050 
MOVE Ps (I , 2 ) ,-13 
I PLOT 0 , + . 07 
I PLOT 0 , - . 07 
MOVE Ps ( I , 2 ) ,-13.1 
LABEL Ps(I,l) 

NEXT I 

RESTORE 

FOR 1=11 TO 50 

Step=INT ( ( LOG ( I ) -B)/A+.5) 

MOVE Step, -13 
I PLOT 0 , + . 025 
I PLOT 0 , - . 025 
MOVE Step, -13.1 
NEXT I 
CSIZE 5 
LORG 4 

MOVE (X1-X2 ) /2 , -13 . 4 
LABEL "MASS NUMBER" 

GSTORE Mass_scale (*) 

RETURN 

Printout: i ************************************************************** 

PRINTER IS 701 
J=1 

FOR 1=1 TO 76 

PRINT USING 2250 ;J, Sums (J) ,Sums(J+l) ,Sums(J+2) ,Sums(J+3) ,Sums(J+ 

IMAGE DDD , 3 X , MD . DDDE , 3 X , MD . DDDE , 3X , MD . DDDE , 3 X , MD . DDDE , 3 X , MD . DDDE 

J=J+5 

NEXT I 

PRINTER IS 1 

PAUSE 

RETURN 

Peakpicker : ! *********************************************************** 

! STD PICK PICKER 11 PEAKS 

! PEAKS LOCATION ARE DETERMINED IN GRAPH PLOT 
! MATRIX PS (I , 1) AMU ,PS(I,2) = STEP) 

! SCIENCE DATA IN SUMS (380) STARTING AT LOCATION 14;STEP 1 
! ALLOCATE PEAKS (NUMBER OF SCANS, 11) IN MAIN PROGRAM 
DIM Rp(ll) 



2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

nin) 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 


DATA 44,40,32,30,28,22,20,18,16,14,12 
READ Rp(*) 

RESTORE 2380 
FOR Peak=l TO 11 
Cc=l 

! Amu=Me (Peak, 1) 

PRINT "FOR MASS NUMBER ";Rp(Peak);" THE CURRENTS ARE" 

FOR Steps=Ps (Rp (Peak) , 2) -3 TO Ps (Rp (Peak) , 2 ) +3 
Pea (Cc) =Sums (Steps+14 ) 

Cc=Cc+l 

PRINT USING "DDDD, 3X,MD. DDDE" ; Steps, Sums (Steps+ 14 ) 

NEXT Steps 
MAT SORT Pea (*) 

Avepeak=(Pea(6)+Pea(7) )/2 

IF Avepeak>6 . 4E-11 THEN Avepeak=(Pea(5)+Pea(6) )/2 
PRINT "THE AVE PEAK CURRENT FOR ";Rp(Peak);" IS ";Avepeak 
! GOTO 2450 ! REMOVE FOR MANUAL CHECK 

CONTROL KBD, 2 ? 1 
LOOP 

ON KEY 1 LABEL "CURR OK" GOTO 2640 
ON KEY 2 LABEL "" GOTO 2560 
ON KEY 3 LABEL "" GOTO 2560 
ON KEY 4 LABEL "MOD CURR" GOTO 2620 
END LOOP 

INPUT "INPUT CORRECT CURRENT ",Avepeak 
PRINT "THE AVE PEAK CURRENT FOR ";Amu;" IS ";Avepeak 
Peaks (Jj ,Peak)=Avepeak 
I PRINT USING "///" 

NEXT Peak 

RETURN 

Peakplot: ! ************************************************************* 

G CLEAR 

Xmax=Num_scan*5 
! Xmax=Peaks (Num_scan , 12 ) 

Xmin=0 

1 Xmin=Peaks (1, 12) 

Reftime=Peaks (1,12) 

Ymax=-9 

Ymin=-15 

WINDOW Xmin- ( . 1* (Xmax-Xmin) ) ,Xmax+. 1* (Xmax-Xmin) , Ymin+ . 1* (Ymax 
Ymax+ . 1* ( Ymax-Ymin) 

FRAME 

AXES 5,1, Xmin , Ymin 

AXES 5, l,Xmax, Ymax 

FOR Am=l TO 11 

IF Peaks (1, Am) =0 THEN 2890 

MOVE Peaks ( 1, 12 ) -Reftime, LGT (Peaks (1, Am) ) 

FOR 1=1 TO Num_scan 
IF Peaks (I, Am) =0 THEN 2870 

DRAW Peaks (I, 12) -Ref time, LGT (Peaks (I, Am) ) 

NEXT I 
PAUSE 
NEXT Am 

j 

RETURN 

Englabel : ! ************************************************************* 

! PRODUCE SIDE LABEL FOR ENG WORDS 
LORG 1 
CSIZE 3 
MOVE -5, -9. 2 


2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 


LABEL 

"SUMS" 

LABEL 

•i it 

LABEL 

"SERIAL" ; Sums ( 1 ) 

LABEL 

ii n 

LABEL 

"FILE " ; Sums ( 2 ) 

LABEL 

it n 

LABEL 

"INDEX"; Sums (3) 

LABEL 

•i it 

LABEL 

"SCANS" ; Sums (4) 

LABEL 

•i ii 

LABEL 

"SCAN " ; Sums ( 5 ) 

LABEL 

ii ii 

LABEL 

"INT" ; Sums (6) 

LABEL 

ii ii 

LABEL 

"DAY" ;Sums (7) 

LABEL 

ii ii 

LABEL 

"HOUR"; Sums (8) 

LABEL 

•i ii 

LABEL 

"MIN" ; Sums (9) 

LABEL 

n ii 

LABEL 

"SEC "; Sums (10) 

LABEL 

ii n 

LABEL 

"MSEC"; Sums (11) 

LABEL 

ii ii 

LABEL 

"PREAMP" ; Sums (12) 

LABEL 

•i ii 

LABEL 

"SOURCE"; Sums (13) 

RETURN 

Peakstore : ! 



Peak$=" PK_ENT3 5A" 

MASS STORAGE IS ":,700,1" 

Filesize=96 18*12 

CREATE BDAT Peak$ ,Num_scan, 96 
ASSIGN @Ab TO Peak$ 

OUTPUT @Ab ? Peaks ( * ) 

MASS STORAGE IS 700,0" 

RETURN 
End: ! 

END 

SUB Clear ! SUB TO Clear Screen 

OUTPUT 2 USING "#,B";255,75 i USE Clear AS A SINGLE STATEMENT 
SUBEND 
SUB Page 

OUTPUT 701;CHR$ (12) &CHR$ (13) 

SUBEND 

SUB Dumpscreen 
OPTION BASE 1 
DIM Pad$ [15] ,Hi$[512] 

Pad$=RPT$ ( CHR$ ( 0 ) ,15) 

ALLOCATE INTEGER Screen (12 480) 

GSTORE Screen (*) 

OUTPUT 701 USING "K" ; CHR$ ( 27 ) &CHR$ ( 42 ) &CHR$ ( 114 ) &CHR$ ( 65 ) 

! ABOVE ENTER RASTER MODE ! Esc$=CHR$ (27) &"*rA" 

Esc$=CHR$ (27) &CHR$ (42) &CHR$ (98) &CHR$ (55) &CHR$(57) &CHR$ (87) 

PRINT Esc$ ! ABOVE TRANSFER ONE RASTER ROW 
FOR Row=l TO 390 
Hi$= H " 

FOR Column=0 TO 31 
Index=Row* 3 2 -Column 
Aa=INT (Screen (Index) /256) 



3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 


Bb=INT (Screen (Index) MOD 256) 

Hi$=CHR$ (Aa) &CHR$ (Bb) &Hi$ !&CHR$(B) ! HIGH BYTE &LO BYTE 

NEXT Column 

OUTPUT 701 USING "K" ;Esc$&Pad$&Hi$ 

NEXT Row 

OUTPUT 701 USING "K" ;CHR$ (27) &"*rB" 

SUBEND 

SUB Config36 (Program$ , Data$) 

DISP 

CONTROL KBD ,2,1 
DISP "SELECT OPTION"; 

LOOP 


ON 

KEY 

0 

LABEL 

"PROGRAM" GOTO 3670 

ON 

KEY 

1 

LABEL 

"INT , 0" 

GOTO 

PinternalO 

ON 

KEY 

2 

LABEL 

"INT, 1" 

GOTO 

Pinternall 

ON 

KEY 

3 

LABEL 

"700,0" 

GOTO 

P7000 

ON 

KEY 

4 

LABEL 

"700,1" 

GOTO 

P7001 

ON 

KEY 

5 

LABEL 

"DATA " 

GOTO 

3680 

ON 

KEY 

6 

LABEL 

"INT, 0" 

GOTO 

DinternalO 

ON 

KEY 

7 

LABEL 

"INT, 1" 

GOTO 

Dinternall 

ON 

KEY 

8 

LABEL 

"700,0" 

GOTO 

D7 000 

ON 

KEY 

9 

LABEL 

"700,1" 

GOTO 

D7001 


END LOOP 
PinternalO: ! 

Program$=" : INTERNAL4 , 0" 
GOTO Subend 
Pinternall: ! 

Program$=" : INTERNAL4 , 1" 
GOTO Subend 

P7000 : Program$=" : ,700, 0" 

GOTO Subend 
P7001: ! 

Program$=" : ,700,1" 

GOTO Subend 
DinternalO: ! 

Data$=" : INTERNAL4 , 0" 

GOTO Subend 

Dinternall; 1 

Data$=" : INTERNAL, 4,1" 

GOTO Subend 
Data$=" ; ,700,0" 

GOTO Subend 

Data$=": ,700,1" 

GOTO Subend 

i 

BEEP 

Flag=Flag+l 
IF Flag=2 THEN 4090 
DISP 

DISP "SELECT NEXT OPTION"; 

IF Flag<=l THEN 3680 
PRINT "PROGRAM MSI IS ";Program$ 
PRINT "DATA MSI IS ";Data$ 

SUBEND 

SUB Config320 (Program$, Data$) 
CONTROL KBD, 2 ; 1 

DISP 

DISP "SELECT OPTION"; 

LOOP 


D7000 : 
D7001 : ! 

Subend: 



4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 


ON KEY 1 LABEL "PROGRAM" GOTO 4140 
ON KEY 2 LABEL "" GOTO 4160 

ON KEY 3 LABEL "" GOTO 4160 

ON KEY 4 LABEL "" GOTO 4160 

ON KEY 5 LABEL "704,0" GOTO PmternalO 

ON KEY 6 LABEL "704,1" GOTO Pinternall 

ON KEY 7 LABEL "700,0" GOTO PhpO 

ON KEY 8 LABEL "700,1" GOTO Phpl 

ON KEY 9 LABEL "DATA" GOTO 4140 
ON KEY 10 LABEL "" GOTO 4160 

ON KEY 11 LABEL "" GOTO 4160 

ON KEY 12 LABEL "" GOTO 4160 

ON KEY 13 LABEL "704,0" GOTO DinternalO 

ON KEY 14 LABEL "704,1" GOTO Dinternall 

ON KEY 15 LABEL "700,0" GOTO DhpO 

ON KEY 16 LABEL "700,1" GOTO Dhpl 

END LOOP 
PinternalO: ! 

Program$=": ,704,0" 

GOTO End 
Pinternall: ! 

Program$=": ,704,1" 

GOTO End 


Phpl: 


PhpO: 


Pr ogr am$= " : , 7 0 0 , 1 " 
GOTO End 


Program$=" : ,700, 0" 
GOTO End 
DinternalO: l 

Data$=": ,704,0" 
GOTO End 
Dinternall: ! 

Data$=": ,704,1" 
GOTO End 


Dhpl: 


DhpO : 


Data$=": ,700,1" 

GOTO End 

i 

Data$=" : ,700,0" 

GOTO End 

j 

BEEP 

Flag=Flag+l 

IF Flag=2 THEN 4660 

DISP 

DISP "SELECT NEXT OPTION"; 
CONTROL KBD, 2 ; 2 
IF Flag<=l THEN 4160 
DISP 

CONTROL KBD, 2 ; 1 
SUBEND 


/ ' 


ATTACHMENT D - SUMS SOFTWARE LISTING 
(5) PLOT8 : 



10! 
20 
30* 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
] 

140 

150 

160* 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

ATE 

310 

E" 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 


RE-STORE "PLOT8" 

! RJD REVISION 6/28/91 

! REVISED FOR HP 320 SERIES OR 9836 
I REQUIRES KET BDAT ON SAME DISK 
VIEWPORT 0,100,0,80 
! AND FOR KEYBOARD 


OPTION BASE 1 
! LOAD KEY "KEY" 

! CONTROL KBD, 2 ; 0 
DIM Cat$ (1) [80] 
DIM Dat (11000,2) 


0 SYSTEM,! USER 1,2 USER 2, 3 USER 3 


DIM A? [80] , B$ [ 80 ] ,C$[8] ,D$(10) [80] ,E$[100] ,Eq$[80] , Prograrti$ [ 15 ] ,Data$[15 


DIM Temp (11000, 2) ,P1(10) 
DIM D (253 ) , E (22 ) 


! TURNS ERROR DETECTED IN 71 IF SUB NOT PRESENT 
IF SUB LEFT ON PROGRAM THIS DEL THE SUB 


Intprint 

ON ERROR GOTO 210 
DEG 

DELSUB Equation 
OFF ERROR 
Aclear 

Conf ig3 6 ( Program? , Data? ) 

Config320 (Program?, Data?) 

DISP 

DISP "INSTRUCTION NEEDED"; 

Yesno (R5) 

ON R5 GOTO 290,480,250 

ii GENERAL PLOT PROGRAM " 

"IF EQUATION IS TO BE PLOTTED THEN THE EQUATION IS STORED ON A 


PRINT 

PRINT 

FILE" 

PRINT 


SEPER 


"EQUATIONS ARE STORED ON "&Program?&" SEE EQUAT FOR A SIMPLE EXAMPL 


"YOU MAY ALSO COMPARE A DATA SET TO AN EQUATION 
"THIS OPTION GIVES STAT OF DATA TO THE EQUATION 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PAUSE 
Aclear 
DISP 

DISP "COMPARE A DATA SET TO AN EQUATION"; 
Yesno (R5) 

ON R5 GOTO 530,540,490 
Compare ( D ( * ) , Eq? , Std_dev) 

GINIT 

GCLEAR 

REVISION 5/9/86 
Gl=l 


(EQUAT) " 
(EQUATDAT) " 


"This is a general plotting program for up to 8 plots " 

"You are allowed up to 5000 points per plot(DAT(5000,2) " 
"AXIS Label or Identification is auto centered" 

"ONLY ONE SET OF DATA IS RETAINED IN MEMORY " 

"USE STORE OPTION IF YOU WISH TO SAVE AND RECALL DATA INPUTS 
"IN THE STORE/RECALL MODE REC/FILE = NUM OF DATA POINTS " 
"DATA IS STORED OR RECALLED FROM "&Data? 

"PROGRAM MSI IS "; Program?;" DATA MSI IS ";Data? 
ti PRESS CONTINUE WHEN READY" 



580 Pu=0 

590 IF More_graph=l THEN 610 
600 L5=0 

610 DISP 

620 DISP "STANDARD PLOTTER PI P2 SETTING 
630 Yesno(R5) 

640 ON R5 GOTO 650,670,610 

650 PRINTER IS 705 

660 PRINT "IP1016, 1016, 10160, 7620" ! SETS STANDARD SIZE FOR VIEWGRAPH 

670 Intprint ! INTERNAL PRINTER 

680 ! Plotter (Pen, Vel) !PEN 0 , PENSPEED 

690 Intplot I INTERNAL PLOTTER 

700 PEN 1 

710 DISP 

720 DISP "INPUT DATA FROM FILES"; 

730 Yesno(R5) 

740 Aclear 

750 ON R5 GOTO 760,770,720 

760 GOSUB Dataread 

770 IF More_graph=0 THEN 820 
780 DISP 

790 DISP "SAME TYPE PLOT" 

800 Yesno (R5) 

810 ON R5 GOTO 840,820,780 

820 Typeplot(L5) 

830 IF More_graph=0 THEN 880 
840 DISP 

850 DISP "SAME AXIS 

860 Yesno (R5) 

870 ON R5 GOTO 900,880,840 

880 Axesln (XI , X2 , Y1 , Y2 , T1 , T2 , T3 , T4 , L5) 

890 IF More_graph=0 THEN 940 
900 DISP 

910 DISP "SAME AXIS LABELS"; 

920 Yesno (R5) 

930 ON R5 GOTO 950,940,900 

940 Labelin (A$ , B$) ! YES, NO, NEITHER 

950 CSIZE 2, .6 

960 LDIR 0 


970 Window_set:! 

980 X3=X1-. 1* (X2-X1) 

990 X4=X2+. 1* (X2-X1) 

1000 X5=X4-X3 

1010 Y3=Y1- . 2* (Y2-Y1) 

1020 Y4=Y2+. 1* (Y2-Y1) 

1030 Y5=Y4-Y3 

1040 Aclear 

1050 WINDOW X3,X4,Y3,Y4 
1060 Open_plot (Open) 

1070 Plotgraph (XI , X2 , X3 , X4 , Y1 , Y2 , Y3 , Y4 , T1 , T2 
1080 DISP 

1090 DISP "PLOT AN EQUATION " 

1100 Yesno (R5) 

1110 ON R5 GOTO 1120,1190,1080 
1120 CAT 
1130 DISP 

1140 Plotequation(Xmin, Xmax, Deltax) 

1150 DISP 

1160 DISP " ANY MORE EQUATIONS" 

1170 Yesno (R5) 


! THESE LINES CREATES A 
! THESE LINES CREATES A 
i 10 % AREA FOR PLOT LABELS 

! AND NUMBERING THE AXIS 


, T3 , T4 , A$ , B$ , L5 , Open) 



1180 

ON R5 GOTO 1120,1190,1150 


1190 

DISP 


1200 

DISP "How Many Plots for this Graph ; 

1210 

Entry 1(Q1,R5) 


1220 

ON R5 GOTO 1230,1190,1190 


1230 

Ngraph=Ql 


1240 

IF Ngraph=0 THEN End 


1250 

IF Ngraph<=10 THEN 1320 


1260 

BEEP 


1270 

DISP 


1280 

DISP " Number of plots limited 

to 10" 

1290 

WAIT 2 


1300 

BEEP 


1310 

GOTO 1190 


1320 

FOR Graph=l TO Ngraph+1 STEP 1 


1330 

IF Graph=Ngraph+l THEN 2170 


1340 

IF Dfile=l THEN 1740 


1350 

DISP 


1360 

DISP " PLOT DATA ON FILE" 


1370 

Yesno (R5) 


1380 

IF R5=l THEN GOSUB Dataread! 

CAT o: 

1390 

IF Df ile=l THEN 1740 


1400 

IF R5=2 THEN 1410 


1410 

IF Graph=l THEN 1480 


1420 

DISP 


1430 

DISP "WILL X VALUES REPEAT FOR 

PLOT", 

US PLOT 


1440 

Yesno (R5) 


1450 

ON R5 GOTO 1460,1480,1420 


1460 

Xrep=l 


1470 

GOTO 1630 


1480 

DISP 


1490 

DISP "How Many Points for this 

Plot" , 

1500 

Entry 1 (Q1,R5) 


1510 

ON R5 GOTO 1520,1480,1480 


1520 

Xrep=0 


1530 

Npts=Ql 


1540 

IF Npts=0 THEN 2160 


1550 

IF Npts<=1000 THEN 1630 


1560 

DISP 


1570 

DISP " Number Limited to 1000" 


1580 

BEEP 


1590 

WAIT 1 


1600 

BEEP 


16101 


1620 

GOTO 1480 


1630 

DISP 


1640 

DISP "Input Description of Data 

If • 
t 

1650 

LINPUT E$ 


1660 

FOR 1=1 TO Npts STEP 1 


1670 

IF Xrep=l THEN 1710 


1680 

DISP "Input X, Y Point Number ", 

If 

1690 

INPUT Dat (1,1) , Dat (1,2) 


1700 

GOTO 1730 


1710 

DISP "FOR X= H ? Dat (1,1) ?" input Y point 

1720 

INPUT Dat (I, 2) 


1730 

NEXT I 


1740 

Dfile=0 


1750 

PRINT "DESCRIPTION OF DATA INPUT" 

1760 

PRINT E$ 



! NUMBER OF PLOTS SELECTED 


1 DATA DISC MUST BE IN 2 


l REPEATS X VALUE FROM PREVIO 


l SINGLE ENTRY AND CHECK10 



1770 PRINT "Data input for Plot number" , Graph 
1780 PRINT " I"," X"," y" 

1790 IF Pr=l THEN 1810 
1800 Datacheck ( Dat (*) ,Npts) 

1810 PRINTER IS 1 


1820 Pr=0 

1830 GOSUB Datastore 


1840 DISP ^ „ 

1850 DISP "Want to Connect the Data Points , 

1860 Yesno(R5) 

1870 ON R5 GOTO 1880,1900,1840 , pEN 

loou Xl— “-L 

1890 GOTO 1910 
1900 H=-2 

1910 DISP ^ , „ 

1920 DISP "Do You Wish to Plot Symbols ; 


1930 Yesno(R5) 

1940 ON R5 GOTO 1950,1970,1910 
1950 Symbol (Symbol) 

1960 GOTO 1980 


PARAMETER 


1970 Symbol=0 
1980 PENUP 


1990 FOR 1=1 TO Npts STEP 1 

2000 X=DatfI.l)*(L 5 <=l)+LGT( (L5<=l)+Dat(I,l)*(L5>l) ) 

2010 Y=Dat ( I , 2 ) * ( L5=0 OR L5=2 ) +LGT ( ( L5=0 OR L5=2 ) +Dat (I , 2 ) * (L5-1 
2020 PLOT X, Y , -H 


2030 IF Symbol=0 THEN 2050 

2040 Plot_symbol (X5 , Y5 , Symbol , H) 

2050 NEXT I 

2060 LORG 1 

2070 PENUP 

2080 IF Pu=l THEN 2110 

2090 GOSUB Plotselect 

2100 IF Plotter=705 THEN 1990 

2110 GOTO Poly ! POLY 

2120 IF Pu=l THEN 2130 

2130 Intplot 

2140 Plotter=0 


2150 Pu=0 
2160 NEXT Graph 
2170 BEEP 407,1 
2180 WAIT .5 
2190 BEEP 490,1 
2200 LDIR 0 

2210 DISP , ^ „ 

2220 DISP "Wish to Identify the Plots ; 

2230 Yesno(R5) 

2240 ON R5 GOTO 2250,2670,2210 . 

2250 PRINT "Input Location of Start of Curve Description 
2260 PRINT "Remember to Leave Space for all Curves 
2270 PRINT "Both Horiz and Vert" 

2280 BEEP 

2290 DISP . „ 

2300 DISP "Input X , Y Location of Curves "» 

2310 INPUT X, Y 

2320 IF L5=0 THEN 2410 

2330 IF L5=2 THEN 2360 

2340 IF L5=3 THEN 2360 

2350 GOTO 2370 

2360 X=LGT (X) 


OR L5=3) ) 



2370 IF L5=l THEN 2400 

2380 IF L5=3 THEN 2400 

2390 GOTO 2410 

2400 Y=LGT (Y) 

2410 FOR Graph=l TO Ngraph STEP 1 

2420 IF Pu=l THEN 2480 

2430 Symbol (Symbol) 

2440 PI (Graph) =Symbol 

2450 DISP 

2460 DISP "Input Curve Description for Plot Number", 
2470 LINPUT D$ (Graph) 

2480 PLOT X,Y- (Graph-1) *. 035*Y5, -2 

2490 IF Pu=l THEN Symbol=Pl (Graph) 

2500 IF Symbol=0 THEN 2560 

2510 Plot_symbol(X5,Y5, Symbol, H) 

2520 CSIZE 2.5, .6 

2530 IF Graph=8 THEN 2550 

2540 GOTO 2560 

2550 PLOT X, Y- (Graph-1) * . 035*Y5 , -2 

2560 LORG 2 

2570 LABEL " = ";D$ (Graph) 

2580 LORG 1 

2590 PENUP 

2600 NEXT Graph 

2610 IF Pu=l THEN 2640 

2620 GOSUB Plotselect 

2630 IF Plotter=705 THEN 2410 

2640 Plotter=0 

2650 Pu=0 

2660 Intplot 

2670 DISP 

2680 DISP "Wish a 2 line Description accross the top" 
2690 Yesno(R5) 

2700 ON R5 GOTO 2710,3060,2670 

2710 PRINT "Input First Line of Heading Note" 

2720 PRINT " The Heading Will be AUTO CENTERED " 

2730 PRINT " and will Appear as Typed in , Including 

2740 PRINT "COMMAS ARE NOT ALLOWED IN INPUT" 

2750 BEEP 

2760 FOR J=1 TO 2 

2770 IF Pu=l THEN 2910 

2780 DISP 

2790 DISP " Enter Line Number ",J? 

2800 LINPUT D$(J) 

2810 ! 

2820 U1=LEN(D$(J) ) 

2830 IF Ul<=75 THEN 2900 

2840 PRINT " LINE IS TOO LONG BY :",Ul-75 
2850 PRINT (D$ ( J) ) 

2860 PRINT "LINE IS LIMITED TOO:" 

2870 PRINT D$(J) [1,75] 

2880 BEEP 

2890 GOTO 2780 

2900 CSIZE 3, .6 

2910 ! PLOT X1+ . 05* (X2-X1) , Y2+ ( . 10- ( J* .04) ) * ( Y2-Y1) ,-2 
2920 PLOT (X1+X2 ) /2,Y2+( .10-(J*.04) ) *(Y2-Y1) ,-2 

2930 LORG 5 

2940 LABEL (D$(J)) 

2950 LORG 1 

2960 PENUP 


Graph ; 


All spaces" 


! START AT LEFT SIDE 
! AUTO CENTER OF PLOT 
! COMMAND TO CENTER PLOT 

! NORMAL STATUS OF LORG 



2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 


NEXT J 

IF Pu=l THEN 3010 

GOSUB Plotselect 

IF Pu=l THEN 2760 

Plotter=0 

Pu=0 

PEN 0 

Intplot 

PEN 1 

DISP 

DISP "WANT TO PLOT 1 LINES ACCROSS THE BASE "; 
Yesno (R5) 

ON R5 GOTO 3100,3340,3070 
PRINT "Input Line of BASE Note" 

PRINT " The BASE Will be AUTO CENTERED " 
PRINT " and will Appear as Typed in , Including 
PRINT "LIMIT OF BASE INPUT IS 30" 

BEEP 
D$ ( 1) =" " 

D$ (2) ="" 
l 

IF Pu=l THEN 3240 
DISP 

DISP " Enter BASE LABEL 
LINPUT D$ (1) 

IF LEN (D$ (1) ) >30 THEN 3100 
CSIZE 6, .6 

i PLOT X1+ .05*(X2-X1) ,Yl+(-.10-(J*.04))* (Y2-Y1) , - 
! LORG 2 

PLOT (X1+X2 ) /2 , Y3 
LORG 4 

LABEL (D$ ( 1) ) 

LORG 1 
PENUP 

IF Pu=l THEN 3340 
GOSUB Plotselect 
IF Pu=l THEN 3170 
Plotter=0 
Pu=0 

PLOTTER IS 3, "INTERNAL" 

DISP 

DISP "Wish to Plot A Message"; 

Yesno (R5) 

ON R5 GOTO 3410,3840,3370 
DISP 

DISP " Input Percent of Small Scale"; 

Entry 1 (Q1,R5) 

ON R5 GOTO 3450,3410,3410 
F=Q1 
DEG 
DISP 

DISP "at What Angle"; 

Entry 1(Q1,R5) 

ON R5 GOTO 3510,3470,3470 
Angle=Ql 
DISP 

DISP "Input Message Location"; 

Entry2 (Q1,Q2,R5) 

ON R5 GOTO 3560,3510,3510 
X=Q1 


All spaces" 


! START AT LEFT SIDE 

I AUTO CENTER OF PLOT 
! COMMAND TO CENTER PLOT 

! NORMAL STATUS OF LORG 



3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 


Y=Q2 

IF L5=0 THEN 3650 
IF L5=l THEN 3640 
IF L5=2 OR L5=3 THEN 3610 
X=LGT (X) 

IF L5=l OR L5=3 THEN 3640 

GOTO 3650 

Y=LGT(Y) 

PLOT X, Y , -2 

IF Pu=l THEN 3700 

DISP 

DISP "Input Message"; 

LINPUT D$ ( 1) 

CSIZE F, . 6 
LDIR Angle 
LORG 5 

LABEL (D$ ( 1) ) 

PENUP 

IF PU=1 THEN 3780 

GOSUB Plotselect 

IF Pu=l THEN 3650 

Pu=0 

Intplot 

DISP 

DISP " Any More Messages"; 

Yesno (R5) 

ON R5 GOTO 3410,3840,3800 

G1=0 

DISP 

DISP "Want More Graphs" ; 

Yesno (R5) 

ON R5 GOTO 3900,3890,3850 

GOTO End 

Plotter=0 

PEN 0 

Intplot 

PEN 1 

More_graph=l 
GOTO 10 
PAUSE 

PO Rjy,,.;,............**.***********************************‘********!!;;r 

^U**.....*....*.*..***********************************“**************** 

Datacheck ( Dat ( * ) ,Npts) 

Second=0 

Intplot 

Plotter=0 

Pu=0 

Disp 

DISP "Do You Wish A Polynomial Regression of the Data , 

BEEP 
WAIT 1 
BEEP 

Yesno (R5) 

ON R5 GOTO 4140,4130,4010 
GOTO 2120 
MAT D= D* (0) 

MAT E= E* (0) 

E ( 1) =1 



4170 

W=0 



4180 

Do=0 



4190 

S1=0 



4200 

S2=0 



4210 

S3=0 



4220 

S4=0 



4230 

S5=0 



4240 

IF Second=l THEN 4360 



4250 

PRINT "N+l Data Points Required for Max Degree of N" 

4260 

PRINT "Run Time is in Direct Relation 

to Max Degree Value" 

4270 

PRINT "Max Degree program Allows is 

20!" 


4280 

BEEP 



4290 

PRINT "Input Max Degree for this plot 

is" ;Npts-l 

4300 

DISP 



4310 

DISP "INPUT Degree fit for this Plot" 

• 

/ 


4320 

Entry 1 (Q1,R5) 



4330 

ON R5 GOTO 4340,4310,4310 



4340 

D1=Q1 



4350 

D2=D1 



4360 

PRINT "Dgree selected was";D2 



4370 

IF D2>=Npts THEN 4250 



4380 

BEEP 



4390 

IMAGE DDDD , 2 DDDDDDDDDDDD . DDDD 



4400 

IMAGE 2 DDDDDDDDDDDD. DDDD 



4410 

FOR M=1 TO Npts STEP 1 



4420 

IF L5=2 THEN 4460 



4430 

IF L5=3 THEN 4460 



4440 

E (2) =Dat (M, 1) 1 A(G,M) 



4450 

GOTO 4470 



4460 

E ( 2 ) =LGT ( Dat (M , 1 ) ) !LGT(A(G,M) ) 



4470 

IF L5=l THEN 4510 



4480 

IF L5=3 THEN 4510 



4490 

Y=Dat (M, 2 ) ! B (G,M) 



4500 

GOTO 4520 



4510 

Y=LGT ( Dat (M , 2 ) ) ! LGT (B (G,M) ) 



4520 

FOR 1=2 TO D2 



4530 

E (1+1) =E (I) *E ( 2 ) 



4540 

NEXT I 



4550 

E (D2+2 ) =Y 



4560 

R=0 



4570 

FOR 1=1 TO D2+2 



4580 

FOR J=I TO D2+2 



4590 

R=R+1 



4600 

D(R) =D (R) +E (I) *E(J) 



4610 

NEXT J 



4620 

NEXT I 



4630 

S1=S1+E ( 2 ) 



4640 

S2=S2+E (2 ) A 2 



4650 

S3=S3+Y 



4660 

S4=S4+Y*Y 



4670 

S5=S5+E (2 ) *Y 



4680 

Do=Do+l 



4690 

NEXT M 



4700 

S8=SQR( (S2-Sl A 2/Do) / (Do-1) ) !STD DEV OF 

X 

4710 

S9=SQR( (S4-S3 A 2/Do) / (Do-1) ) !STD DEV OF 

Y 

4720 

R9= (S5-Sl*S3/Do) / (Do-1) /S8/S9 !CORR 

COEFF 

OF SET X, Y 

4730 

P=1 



4740 

W=1 



4750 

D2=D2+1 



4760 

FOR J=1 TO D2 





4770 IF D (P) <0 THEN 6870 
4780 D (P) =SQR (D (P) ) 

4790 FOR 1=1 TO D2-J+1 
4800 D(P+I)=D(P+I)/D(P) 

4810 NEXT I 
4820 R=P+I 
4830 S=R 

4840 FOR L=1 TO D2-J 
4850 P=P+1 

4860 FOR M=1 TO D2+2-J-L 

4870 D (R+M-l) =D (R+M-l) -D (P) *D(P+M-1) 

4880 NEXT M 

4890 R=R+M- 1 

4900 NEXT L 

4910 P=S 

4920 NEXT J 

4930 T=(D2+1) * (D2+2)/2 

4940 FOR 1=1 TO D2-1 

4950 T=T-1-I 

4960 D (T) =1/D (T) 

4970 FOR J=1 TO D2-I 

4980 P=D2+1-I-J 

4990 P=P* (D2+l-(P-l)/2)-I 

5000 R=P-J 

5010 S=0 

5020 U=I+J+1 

5030 V=P 

5040 FOR K=1 TO J 

5050 V=V+U-K 

5060 S=S-D (R+K) *D (V) 

5070 NEXT K 
5080 D (P) =S/D (R) 

5090 NEXT J 

5100 NEXT I 

5110 D ( 1) =1/D ( 1) 

5120 T=0 

5130 FOR 1=1 TO Dl+1 

5140 E (I) =0 

5150 FOR J=1 TO Dl-I+2 

5160 R= (I+J— 1) *(D2+2— .5* (I+J) ) 

5170 E (I) =E (I) +D (T+J) *D (R) 

5180 NEXT J 

5190 T=I*(D2+(3-I)/2) 

5200 NEXT I 
5210 R1=0 

5220 FOR 1=2 TO Dl+1 

5230 R1=R1+D(I* (D2+(3-I)/2) ) A 2 

5240 NEXT I 

5250 T0=D( (D2+1) *(D2+2)/2) 

5260 T0=T0- (D(D2+1)) A 2 

5270 PRINT "COEFFICIENTS FOR PLOT ", Graph 
5280 PRINT "DATA FROM ";File$ 

5290 PRINT "DATA DESCRIPTION ";E$ 

5300 PRINT 

5310 ON L5+1 GOTO 5320,5340,5360,5380 1L5+1 SINCE L5 STARTS AT 0 

5320 PRINT " y = AX A 2 + BX A 1 + C" 

5330 GOTO 5390 

5340 PRINT " LGT(Y) = AX A 2 + BX A 1 + C " 

5350 GOTO 5390 
5360 PRINT " 


Y = A (LGT X) A 2 + B (LGT X) A 1 + C" 



5370 GOTO 5390 

5380 PRINT " LGT(Y) = A (LGT X) A 2 + B(LGT X) A 1 + C" 

5390 PRINT " " 

5400 IMAGE DDD ; DDDDDDDDDDDD. DDDD 

5410 FOR 1=1 TO Dl+1 

5420 PRINT "E(";I-1;")= H ;E(I) 

5430 NEXT I 
5440 DISP 

5450 DISP "WANT TO DETERNMINE X WHERE Y=0 VALUE OF POLY"; 

5460 Yesno (R5) 

5470 ON R5 GOTO 5490,5480,5440 
5480 GOTO 5500 

5490 Detzero (E (*) , D1 , L5 , Yvalue) 

5500 PRINT "R SQUARED = ";R1/T0 

5510 Sumdiff=0 

5520 Sumsq=0 

5530 FOR 1=1 TO Npts 

5540 X=Dat(I, 1) * ( L5<=1 ) +LGT ( Dat (1,1) * (L5>1) + (L5<=1) ) 

5550 Y=E (Dl+1) 

5560 FOR J=D1 TO 1 STEP -1 
5570 Y=Y*X+E ( J) 

5580 NEXT J 

5590 Y=Y* (L5=0 OR L5=2-) +10 A Y* (L5=l OR L5=3) 

5600 ! PRINT X, Y, Dat ( I , 2 ) -Y 

5610 Sumdif f=Sumdiff+ (Dat (I, 2) -Y) 

5620 Sumsq=Sumsq+ (Dat (I, 2) -Y) * (Dat (I, 2) -Y) 

5630 NEXT I 

5640 Std_dev= ( (Sumsq- (Sumdif f*Sumdiff) /Npts) / (Npts-1) ) A . 5 

5650 PRINT "STD DEV OF Y -YCAL = ";Std_dev 
5660 GOTO Bypass_stat 

5670 PRINT "STASTICS FOR PLOT ";Graph 
5680 PRINT " " 

5690 PRINT "NUMBER OF POINTS = ";Do 
5700 PRINT " " 

5710 PRINT "X: MEAN = ";Sl/Do;" ";"ST. DEV. =";S8 

5720 PRINT "Y MEAN = ";S3/Do;" ";"ST. DEV. ="?S9 

5730 PRINT " " 

5740 PRINT "CORR. COEFF. . = ";R9 

5750 Bypass_stat: ! 

5760 PRINT " " 

5770 PRINT "TABLE FOR PLOT";Graph 
5780 PRINT " " 

5790 PRINT " X Y CAL Y Y-CAL Y 

SIGMA" 

5800 E5=0 

5810 FOR M=1 TO Npts 

5820 IF L5>1 THEN 5850 

5830 I=Dat (M, 1) ! A(G,M) 

5840 GOTO 5860 

5850 I=LGT (Dat (M, 1) ) ! LGT (A (G,M) ) 

5860 Y=E (Dl+1 ) 

5870 FOR J=D1 TO 1 STEP -1 
5880 Y=Y*I+E ( J) 

5890 NEXT J 

5900 IF L5=l OR L5=3 THEN 5930 

5910 PRINT USING 5940 ;M, Dat (M, 1) , Dat (M, 2 ) , Y, Y-Dat (M, 2 ) , (Y-Dat (M, 2 ) ) /Std_dev 
5920 GOTO 5960 

5930 PRINT USING 594 0 ;M, Dat (M, 1) , Dat (M, 2 ) , 10 A Y, Dat (M, 2 ) -10 A Y, (Dat (M, 2 ) -10 A Y) /S 
td_dev 

5940 IMAGE DDDDD, 5X, SD. 3DE, 5X, SD. 3DE, 5X, SD. 3DE , 5X, SD. 3DE, 5X, DD. DD 



5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 I 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 


IMAGE 3X , SD . 3DE , 9X , SD . 3 DE , 5X , SD . 3 DE , 5X , SD. 3DE , DDDDDD . DDD , 5X , DDD . DDD 


IF L5=l OR L5=3 THEN 5990 
E4= (Dat (M, 2) -Y) * (Dat (M, 2) - Y) 

GOTO 6000 

E4= (Dat (M, 2) -10 A Y) * (Dat (M, 2 ) -10 A Y) 

E5=E5+E4 

NEXT M 


! (B(G,M) -Y) A 2 
! (B(G,M)-10 A Y) A 2 


E6= (E5/ (Do-1) ) A .5 

PRINT "STD DEV OF Y-Y CAL = ";E6 


PRINT " ” 

IF Pr=l THEN 6080 
GOSUB Hardcopy 
IF Pr=l THEN 5270 


Pr=0 

PRINTER IS 1 
DISP 

DISP " PLOT THE EQUATION" ; 

Yesno (R5) 

ON R5 GOTO 6140,6530,6110 
IF L5<2 THEN 6260 
DISP 

DISP "INPUT Xmin , Xmax , NUMBER OF POINTS PER DECADE ; 
Entry 3 (Q1,Q2 ,Q3 ,R5) 

ON R5 GOTO 6190,6160,6160 

Ao=Ql 

Bo=Q2 

C=Q3 

Ao=LGT ( Ao) 

Bo=LGT (Bo) 

C=l/C 
GOTO 6330 
DISP 

DISP " INPUT Xmin, Xmax, STEP" ; 

Entry3(Ql,Q2,Q3,R5) 

ON R5 GOTO 6300,6270,6270 
Ao=Ql 
Bo=Q2 
C=Q3 

PENUP 

FOR I=Ao TO Bo STEP C 
Y=E (Dl+1) 

FOR J=D1 TO 1 STEP -1 
Y=Y*I+E ( J) 

NEXT J 
PLOT I , Y , 1 
NEXT I 
PENUP 

IF Pu=l THEN 6490 


DISP 

DISP "is Fit OK"; 

Yesno (R5) 

ON R5 GOTO 6470,4010,6300 

GOSUB Plotselect 

IF Plotter=705 THEN 6340 

Intplot 

Plotter=0 

Pu=0 

DISP 

DISP "WANT SELECTED PRINT OUT" ? 
Yesno (R5) 


6550 ON R5 GOTO 6560,6850,6470 

6560 DISP 

6570 DISP "INPUT Xmin, XMax , STEP" ; 

6580 Entry3 (Q1,Q2 ,Q3 ,R5) 

6590 ON R5 GOTO 6600,6560,6560 

6600 Ao=Ql 

6610 Bo=Q2 

6620 C=Q3 

6630 FOR I=Ao TO Bo STEP C 

6640 X=I 

6650 IF L5>1 THEN X=LGT(X) ! COEFFICIENTS IN EQ ARE IN LGT 

6660 Y=E (Dl+1) 

6670 FOR J=D1 TO 1 STEP -1 

6680 Y=Y*X+E(J) 

6690 NEXT J 

6700 IF L5=0 THEN 6740 

6710 IF L5=l THEN 6760 

6720 IF L5=2 THEN 6780 

6730 IF L5=3 THEN 6800 

6740 PRINT X, Y 

6750 GOTO 6810 

6760 PRINT X, 10 A Y 

6770 GOTO 6810 

6780 PRINT 10 A X, Y 

6790 GOTO 6810 

6800 PRINT 10 A X, 10 A Y 

6810 NEXT I 

6820 IF Pr=l THEN 6850 

6830 GOSUB Hardcopy 

6840 IF Pr=l THEN 6630 

6850 PRINTER IS 1 

6860 GOTO 2120 

6870 DISP 

6880 DISP " D(P) NEGATIVE Will Reprocess at the next lower Fit"; 

6890 D1=D1-1 

6900 D2=D1 

6910 Second=l 

6920 GOTO 4140 

6930 PAUSE 

6940 Plotselect : ! ***************************************************** 

******************* 

6950 DISP 

6960 DISP " Shall We Put This On The Plotter" 

6970 Yesno(R5) 

6980 ON R5 GOTO 7010,6990,6960 

6990 Intplot 

7000 RETURN 

7010 Plotter=705 

7020 Pu=l 

7030 Plotter (Pn,Vel) 

7040 RETURN 
7050 PAUSE 

7060 Hardcopy: !************************************************************** 

********* 

7070 DISP 

7080 DISP "Do You Want A Hard Copy of The Information"; 

7090 Yesno (R5) 

7100 ON R5 GOTO 7120,7110,7080 
7110 RETURN 
7120 Aclear 


7130 PRINTER IS 701 
7140 Pr=l 
*7150 RETURN 

7160 REM******************************************************************** 

7170 Datastore: REM DATA STORAGE SUB ***************************************** 

7180 REM************** ************************************************ ******* 

7190 DISP 

7200 DISP " WANT TO STORE THE DATA” ; 

7210 Yesno(R5) 

7220 ON R5 GOTO 7230,7340,7200 

7230 INPUT "INPUT FILE NAME" , File$ 

7240 MASS STORAGE IS Data$ ! DATA STORE MSI 
7250 CREATE BOAT File$ , Npts , 16 
7260 REDIM Temp (Npts , 2 ) 

7270 FOR 1=1 TO Npts 
7280 Temp (1,1) =Dat (1,1) 

7290 Temp(I,2)=Dat(I,2) 

7300 NEXT I 

7310 ASSIGN @Ab TO File$ 

7320 OUTPUT @ Ab ; Temp ( * ) 

7330 MASS STORAGE IS Program$ ! PROGRAM MSI 

7340 RETURN 
7350 !END 

7360 REM******************************************************** 

7370 Dataread: REM DATA READ SUB ***************************************** 

7380 REM********************************************************* 

7390 BEEP 

7400 DISP "IS DATA IN THE CORRECT FORM DAT (XXX, 2)"; 

7410 Yesno(R5) 

7420 ON R5 GOTO 7450,7430,7400 
7430 MASS STORAGE IS Program? 

7440 LOAD "DATA_TRANS" , 1 
7450 IF Graph=0 THEN Graph=l 

7460 MASS STORAGE IS Data? ! DATA STORE MSI 

7470 DISP 

7480 Dataselect (File?) 

7490 ON ERROR GOTO 7380 

7500 CAT TO Cat? (*); SELECT File?, NO HEADER 
7510 Rec_file=VAL(Cat? (1) [38,45]) 

7520 REDIM Temp (Rec_f ile , 2 ) 

7530 REDIM Dat (Rec_f ile, 2) 

7540 ASSIGN @Ab TO File? 

7550 ENTER @Ab;Temp(*) 

7560 FOR 1=1 TO Rec_file 
7570 Dat (1,1) =Temp (1,1) 

7580 Dat (1,2) =Temp (1,2) 

7590 NEXT I 
7600 Npts=Rec_f ile 
7610 Minx=9.E+99 

7620 Maxx=-9 . E+99 
7630 Miny=9 .E+99 
7640 Maxy=-9 .E+99 
7650 FOR 1=1 TO Npts 

7660 IF Dat (I, 1) <Minx THEN Minx=Dat (I, 1) 

7670 IF Dat (I , 1) >Maxx THEN Maxx=Dat (1,1) 

7680 IF Dat(I,2)<Miny THEN Miny=Dat (I , 2 ) 

7690 IF Dat (1,2) >Maxy THEN Maxy=Dat (1,2) 

7700 NEXT I 

7710 PRINT "NUMBER OF DATA POINTS IS " ;NptS 


7720 PRINT "MIN X = ";Minx?" MAX X = ";Maxx 
7730 PRINT "MIN Y = ";Miny;" MAX Y = ";Maxy 
7740 Dfile=l 

7750 MASS STORAGE IS Program$ 1 PROGRAM MSI 

7760 OFF ERROR 

7770 RETURN 

7780 End: ! ********* 

7790 PEN 0 

7800 PLOTTER IS 705,"HPGL" 

7810 Intplot 

7820 PEN 1 

7830 Intprint 

7840 MASS STORAGE IS Program$ 

7850 CONTROL KBD,2?0 

7860 l LOAD "AUTOST",l 

7870 END 

7880 SUB Entry2 (Q1,Q2,R5) 

7890 INPUT Q1,Q2 
7900 BEEP 440, . 5 
7910 DISP 

7920 DISP "IS INPUTS ";Q1,Q2;" CORRECT"; 

7930 Yesno (R5) 

7940 ON R5 GOTO 8000,7950,7890 
7950 BEEP 
7960 DISP 

7970 DISP "RE-ENTER DATA" 

7980 WAIT 1.5 

7990 BEEP 

8000 SUBEND 

8010 SUB Intplot 

8020 PLOTTER IS 3, "INTERNAL" 

8030 SUBEND 

8040 SUB Intprint 

8050 PRINTER IS 1 

8060 SUBEND 

8070 SUB Labelin (A$ , B$) 

8080 Namelimit=INT ( (100/5) * (RATIO/ . 6) * . 77 ) 

8090 DISP 

8100 DISP "INPUT XAXIS NAME ( LABEL) LIMIT " ;Namelimit ; 
8110 LINPUT A$ 

8120 L1=LEN(A$) 

8130 IF LI <=Name limit THEN 8210 
8140 Long=Ll-Namelimit 
8150 DISP 

8160 DISP "X AXIS NAME IS TO LONG BY ";Long 
8170 Print 

8180 PRINT "X AXIS LIMITED TO " &A$ [ 1 , Namelimit ] 

8190 Intprint 
8200 GOTO 8100 

8210 Namelimit=INT( ( 100* . 8/4 ) / . 6) 

8220 DISP 

8230 DISP "INPUT YAXIS NAME (LABEL) LIMIT IS ";Namelimit 
8240 LINPUT B$ 

8250 L1=LEN(B$) 

8260 IF Ll<=Namel imit THEN Subend 
8270 Long=Ll-Namelimit 
8280 DISP 

8290 DISP "Y AXIS NAME IS TO LONG BY ";Long 
8300 Print 

8310 PRINT "Y AXIS LIMITED TO »&B$ [ 1 , Namelimit ] 


8320 Intprint 
8330 GOTO 8210 
8340 Subend: ! 

8350 SUBEND 

8360 SUB Plotter (Pen, Vel) 

8370 DISP "INPUT PEN AND PEN VELOCITY"; 

8380 Entry2 (Q1,Q2 ,R5) 

8390 ON R5 GOTO 8400,8370,8370 

8400 Pen=Ql 

8410 Vel=Q2 

8420 PRINTER IS 705 

8430 A$=" VS " &VAL$ (Vel ) 

8440 PRINT A$ 

8450 Intprint 

8460 PEN Pen 

8470 Extplot 

8480 SUBEND 

8490 SUB Typeplot(L5) 

8500 LOOP 

8510 ON KEY 1 LABEL "SELECT" GOTO Nokey 

8520 ON KEY 2 LABEL "PLOT" GOTO Nokey 

8530 ON KEY 3 LABEL "TYPE" GOTO Nokey 

8540 ON KEY 4 LABEL "" GOTO Nokey 

8550 ON KEY 5 LABEL " LIN_LIN (X,Y)" GOTO 8640 

8560 ON KEY 6 LABEL "LIN_LOG (X,Y)" GOTO 8660 

8570 ON KEY 7 LABEL " LOG_LIN (X,Y)" GOTO 8680 

8580 ON KEY 8 LABEL "LOG_LOG (X,Y)" GOTO 8700 

8590 END LOOP 

8600 Nokey: ! 

8610 BEEP 

8620 WAIT .5 

8630 GOTO 8500 

8640 L5=0 

8650 GOTO 8720 

8660 L5=l 

8670 GOTO 8720 

8680 L5=2 

8690 GOTO 8720 

8700 L5=3 

8710 GOTO 8720 

8720 OFF KEY 

8730 SUBEND 

8740 SUB Extprint 

8750 PRINTER IS 701 

8760 SUBEND 

8770 SUB Extplot 

8780 PLOTTER IS 705,"HPGL" 

8790 SUBEND 

8800 SUB Axes in (XI , X 2 , Y 1 , Y 2 , T 1 , T2 , T3 , T4 , L5) 

8810 ON L5+1 GOTO Lin_lin, Lin_log, Log_lin , Log_log 
8820 Lin_lin: ! 

8830 DISP 

8840 DISP "INPUT XMIN, XMAX, TIC MARK"; 

8850 Entry 3 ( Q1 , Q2 , Q3 , R5 ) 

8860 ON R5 GOTO 8870,8840,8840 

8870 X1=Q1 

8880 X2=Q2 

8890 T1=Q3 

8900 DISP 

8910 DISP "LABEL XAXIS EACH"; 


8920 

8930 

8940 

8950 

8960 

8970 

8980 

8990 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9490 

9500 

9510 


Entry 1 (Q1,R5) 

ON R5 GOTO 8940,8910,8910 

T3=Q1 

DISP 

DISP "INPUT YMIN, YMAX,TIC MARK"? 

Entry3 (Q1,Q2 ,Q3 ,R5) 

ON R5 GOTO 8990,8960,8960 

Y1=Q1 

Y2=Q2 

T2=Q3 

DISP 

DISP "LABEL YAXIS EACH "; 

Entry 1(Q1,R5) 

ON R5 GOTO 9060,9030,9030 
T4=Q1 

GOTO Subend 
Lin_log: ! 

DISP 

DISP "INPUT XMIN, XMAX, TIC MARK"; 

Entry3 (Q1,Q2 ,Q3 ,R5) 

ON R5 GOTO 9130,9100,9100 

X1=Q1 

X2=Q2 

T1=Q3 

DISP 

DISP "LABEL XAXIS EACH"; 

Entry 1 (Q1,R5) 

ON R5 GOTO 9200,9170,9170 

T3=Q1 

DISP 

DISP "INPUT YAXIS IN DECADES"; 

Entry2 (Q1,Q2,R5) 

ON R5 GOTO 9250,9220,9220 
Y1=INT (LGT (Ql) ) 

Y2=INT ( LGT ( Q2 ) ) 

T2=l 

T4=l 

GOTO Subend 
Log_lin: ! 

DISP 

DISP "INPUT XMIN, XMAX IN DECADES"; 
Entry2 (Q1,Q2,R5) 

ON R5 GOTO 9350,9320,9320 
X1=INT (LGT (Ql ) ) 

X2=INT (LGT (Q2 ) ) 

Tl=l 

T3=l 

DISP 

DISP "INPUT YMIN, YMAX, TIC SPACING"; 
Entry3 (Ql , Q2 , Q3 ,R5) 

ON R5 GOTO 9430,9400,9400 

Y1=Q1 

Y2=Q2 

T2=Q3 

DISP 

DISP "INPUT LABEL YAXIS EACH"; 
Entryl (Q1,R5) 

ON R5 GOTO 9500,9470,9470 
T4=Q1 

GOTO Subend 


I 


I 


9520 Log_log: 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 

9620 

9630 

9640 

9650 

9660 

9670 

9680 

9690 

9700 Subend: 
9710 SUBEND 


• • 

DISP 

DISP "INPUT XMIN , XMAX IN DECADES"; 
Entry2 (Q1,Q2 ,R5) 

ON R5 GOTO 9570,9540,9540 
X1=INT (LGT (Ql) ) 

X2=INT (LGT (Q2 ) ) 

Tl=l 

T3=l 

DISP 

DISP "INPUT YMIN, YMAX IN DECADES"; 
Entry 2 ( Ql , Q2 , R5 ) 

ON R5 GOTO 9650,9620,9620 
Y1=INT (LGT (Ql) ) 

Y2=INT (LGT (Q2 ) ) 

T2=l 

T4=l 

GOTO Subend 

i 


9720 SUB Yesno (R5) 


9730 LOOP 


9740 ON KEY 1 LABEL 
9750 ON KEY 2 LABEL 
9760 ON KEY 3 LABEL 
9770 ON KEY 5 LABEL 
9780 ON KEY 6 LABEL 
9790 ON KEY 7 LABEL 
9800 ON KEY 4 LABEL 
9810 ON KEY 8 LABEL 


YES" GOTO 9830 
" GOTO 9730 
" GOTO 9730 
" GOTO 9730 
" GOTO 9730 
" GOTO 9730 
NO" GOTO 9860 
REPEAT ?" GOTO 9890 


9820 END LOOP 
9830 R5=l 
9840 OFF KEY 
9850 GOTO 9910 
9860 R5=2 

9870 OFF KEY 


9880 GOTO 9910 

9890 R5=3 

9900 OFF KEY 

9910 SUBEND 

9920 SUB Entry 1 (Q1,R5) 

9930 INPUT Ql 
9940 BEEP 440, . 5 
9950 DISP 

9960 DISP "IS INPUT ";Q1;" CORRECT"; 

9970 Yesno (R5) 

9980 ON R5 GOTO 10040,9990,9930 
9990 BEEP 
10000 DISP 

10010 DISP "RE-ENTER DATA" 

10020 WAIT 1.5 
10030 BEEP 
10040 SUBEND 

10050 SUB Entry 3 (Q1,Q2 ,Q3 ,R5) 

10060 INPUT Ql , Q2 , Q3 
10070 BEEP 440, .5 
10080 DISP 

10090 DISP "IS INPUTS ";Q1,Q2,Q3;" CORRECT"; 
10100 Yesno (R5) 

10110 ON R5 GOTO 10170,10120,10060 


10120 BEEP 
10130 DISP 

10140 DISP "RE-ENTER DATA" 

10150 WAIT 1.5 
10160 BEEP 

10180 SUB Plotgraph (XI, X2 , X3 ,X4 , Y 1 , Y 2 , Y3 , Y4 ,T1 ,T2 ,T3 ,T4 , A$ , B$ , L5 , Open) 
10190 IF Plotflag=0 THEN 10210 
10200 Plotter (Pn,Vel) 

10210 ON L5+1 GOTO Lin_lin, Lin_log , Log_lm , Log_log 


10220 Lin lin:! 


10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 

10590 

10600 

10610 

10620 

10630 

10640 

10650 

10660 

10670 

10680 

10690 

10700 

10710 


DEG 

LDIR 0 
CSIZE 3 
LORG 6 
J=1 

FOR Y=Y1 TO Y2 STEP (Y 2 -Y 1 ) + (Open=l) *100 

MOVE XI, Y 

Major=T3 

FOR X=X1 TO X2 STEP T1 
PLOT X Y ”1 

RPLOT 6, '. 01 *J*(Y 2 -Yl) + .01*J*(Y2-Yl)*(Major=T3) ,-l 

RPLOT 0 , 0 , -1 

IF Major=T3 THEN Major=0 

IF MajoroO OR J=-l THEN 10410 

PLOT X, Y- . 01* (Y2-Y1) ,2 

IF ABS (X) <1 . E-10 THEN X=0 

LABEL X* (ABS (X) >1. E-10) 

PLOT X , Y , 1 

Major=Major+Tl 

NEXT X 

PENUP 

J=-l 

NEXT Y 

MOVE X1+ (X2-X1)/2,Y1-.1*(Y2-Y1) 

CSIZE 4 
LORG 4 
LABEL A$ 

J=1 
LORG 8 
CSIZE 3 

FOR X=X1 TO X2 STEP (X2-X1) + (Open=l) *100 
MOVE X, Y1 
Ma j or=T4 

FOR Y=Y1 TO Y2 STEP T2 
PLOT X Y —1 

RPLOT ! 01*J* (X2-X1) + . 01*J* (X2-X1) * (Major=T4 ) , 0 , -1 

RPLOT 0,0,-l 

IF Major=T4 THEN Major=0 

IF MajoroO OR J=-l THEN 10650 

PLOT X , Y , -2 

LABEL Y 

PLOT X, Y, 1 

Ma j or=Ma j or+T2 

NEXT Y 

J=-l 

NEXT X 

MOVE XI- (X2-X1) * . 1, (Y2+Yl)/2 
LDIR 90 
CSIZE 4, .6 


10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 

10810 

10820 

10830 

10840 

10850 

10860 

10870 

10880 

10890 

10900 

10910 

10920 

10930 

10940 

10950 

10960 

10970 

10980 

10990 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 

11300 

11310 


LORG 6 
LABEL B$ 

GOTO Subend 

Lin_log: ! lin X ,Y log 

DEG 

LDIR 0 
CSIZE 3 
LORG 6 
J=1 

FOR Y=Y1 TO Y2 STEP (Y2-Y1) + (Open=l) *100 

MOVE XI, Y 

Major=T3 

FOR X=X1 TO X2 STEP T1 
PLOT X , Y , -1 

RPLOT 0, . 01* J* (Y2-Y1)+. 01* J* (Y2-Y1) * (Major=T3) ,-l 

RPLOT 0,0,-l 

IF Major=T3 THEN Major=0 

IF MajoroO OR J=-l THEN 10930 

PLOT X, Y-. 01* (Y2-Y1) ,2 

LABEL X 

PLOT X, Y , 1 

Ma j or=Ma j or+Tl 

NEXT X 

PENUP 

J=-l 

NEXT Y 

MOVE (X2+X1) /2 , Yl- . 1* (Y2-Y1) 

CSIZE 4, .6 
LORG 4 
LABEL A$ 

J=1 

FOR X=X1 TO X2 STEP (X2-X1) + (Open=l) *100 
MOVE X, Yl 

FOR Y=Y1 TO Y2-1 STEP 1 
FOR 1=1 TO 10 STEP 1 
PLOT X, Y+LGT (I) ,-l 

RPLOT J* ( . 02+ . 02* (1=10) )*(X2-X1) ,0,-1 

RPLOT 0,0,-l 

NEXT I 

NEXT Y 

J=-l 

NEXT X 

CSIZE 2.5, .6 

LORG 6 

FOR I=Y1 TO Y2 

MOVE XI- .055* (X2-X1) , I- . 030* (Y2-Y1) 

LABEL "10" 

MOVE X1-.035* (X2-X1) ,1 
LORG 5 
LABEL INT(I) 

NEXT I 

MOVE X3 , Y1+ (Y2-Y1) /2 

LORG 6 

LDIR 90 

CSIZE 4 

LABEL B$ 

GOTO Subend 

Log_lin:! LGT X LIN Y 

DEG 

LDIR 0 


11320 
11330 
11340 
11350 
11360 
11370 
11380 
11390 
11400 
11410 
11420 
11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 
11800 
11810 
11820 
11830 
11840 Log 
11850 
11860 
11870 
11880 
11890 
11900 
11910 


J=1 

FOR Y=Y1 TO Y2 STEP (Y2-Y1) + (Open=l) *100 

MOVE XI , Y 

FOR X=X1 TO X2-1 

FOR 1=1 TO 10 

PLOT X+LGT(I) , Y,-l 

RPLOT 0, J* ( . 02+ . 02* (1=10) ) *(Y2-Y1) ,-l 

RPLOT 0,0,-l 

NEXT I 

NEXT X 

J=-l 

NEXT Y 

CSIZE 2.5, .6 

LORG 6 

FOR I=X1 TO X2 

MOVE I-. 025* (X2-X1) , Yl- . 03 0* (Y2-Y1) 

LABEL "10" 

MOVE I, Y1-. 01* (Y2-Y1) 

LABEL INT(I) 

NEXT I 
PENUP 

MOVE X1+ (X2-X1) /2 , Yl- . 1* ( Y2-Y1 ) 

LORG 4 
CSIZE 4 
LABEL A$ 

J=1 

LORG 8 
CSIZE 3 , . 6 

FOR X=X1 TO X2 STEP (X2-X1) + (Open=l) *100 

MOVE X, Yl 

Major=T4 

FOR Y=Y1 TO Y2 STEP T2 
PLOT X, Y, -1 

RPLOT . 01*J* (X2-X1) + . 01*J* (X2-X1) * (Major=T4) ,0,-1 
RPLOT 0,0,-l ' ' ' 

IF Major=T4 THEN Major=0 

IF MajoroO OR J=-l THEN 11720 

PLOT X, Y, -2 

LABEL Y 

PLOT X, Y, 1 

Ma j or=Ma j or+T2 

NEXT Y 

PENUP 

J=-l 

NEXT X 

MOVE XI- (X2-X1) *. 1, (Y2+Yl)/2 

LDIR 90 

CSIZE 4, .6 

LORG 6 

LABEL B$ 

LDIR 0 
GOTO Subend 

log:! LGT X LGT Y 

DEG 
LDIR 0 
J=1 

FOR Y=Y1 TO Y2 STEP (Y2-Y1) + (Open=l) *100 

MOVE XI, Y 

FOR X=X1 TO X2-1 

FOR 1=1 TO 10 



11920 

11930 

11940 

11950 

11960 

11970 

11980 

11990 

12000 

12010 

12020 

12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 

12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 

12190 

12200 

12210 

12220 

12230 

12240 

12250 

12260 

12270 

12280 

12290 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12380 

12390 

12400 

12410 

12420 

12430 

12440 

12450 

12460 

12470 

12480 

12490 

12500 

12510 


PLOT X+LGT (I) , Y 

RPLOT 0, J* ( . 02+ . 02* (1=10) ) * (Y2-Y1) , -1 

RPLOT 0 , 0 , -1 

NEXT I 

NEXT X 

J=-l 

NEXT Y 

CSIZE 2.5, .6 

LORG 6 

FOR I=X1 TO X2 

MOVE I-.025* (X2-X1) , Y1-. 030* (Y2-Y1) 

LABEL "10" 

MOVE I,Y1-.01*(Y2-Y1) 

LABEL INT(I) 

NEXT I 
PENUP 

MOVE X1+ (X2-X1) /2 , Yl- . 1* (Y2-Y1) 

LORG 4 
CSIZE 4 
LABEL A$ 

J=1 

FOR X=X1 TO X2 STEP (X2-X1) + (Open=l) *100 
MOVE X , Yl 

FOR Y=Y1 TO Y2-1 STEP 1 
FOR 1=1 TO 10 STEP 1 
PLOT X , Y+LGT ( I) ,-l 

RPLOT J* ( . 02+ . 02* (1=10) ) * (X2-X1) ,0,-1 

RPLOT 0,0,-l 

NEXT I 

NEXT Y 

J=-l 

NEXT X 

CSIZE 2.5, .6 

LORG 6 

FOR I=Y1 TO Y2 

MOVE XI- . 055* (X2-X1) , I- . 030* ( Y2-Y1) 
LABEL "10" 

MOVE X1-. 035* (X2-X1) , I 
LORG 5 
LABEL INT(I) 

NEXT I 

MOVE X3 , Y1+ (Y2-Y1) /2 

LORG 6 

LDIR 90 

CSIZE 4 

LABEL B$ 

Subend : ! 

IF Plotflag=l THEN 12460 

DISP 

DISP "PUT THIS ON THE PLOTTER 
Yesno (R5) 

ON R5 GOTO 12440,12460,12390 

Plotflag=l 

GOTO 10180 

PEN 0 

Intplot 

PEN 1 

SUBEND 

SUB Linetype (Linetype) 

DISP 


12520 DISP " INPUT LINE TYPE (1,10) " ; 

12530 INPUT Linetype 

12540 IF Linetype<l OR Linetype>10 THEN 12520 
12550 LINE TYPE Linetype, 9 
12560 SUBEND 

12570 SUB Open_plot (Open) 

12580 LOOP 


12590 

ON 

KEY 

1 

LABEL 

"OPEN 

PLOT" 

GOTO 

12680 

12600 

ON 

KEY 

2 

LABEL 

II II 

GOTO 

12590 



12610 

ON 

KEY 

3 

LABEL 

II If 

GOTO 

12590 



12620 

ON 

KEY 

4 

LABEL 

"CLOSED 

PLOT" 

GOTO 

12710 

12630 

ON 

KEY 

5 

LABEL 

II II 

GOTO 

12590 



12640 

ON 

KEY 

6 

LABEL 

II II 

GOTO 

12590 



12650 

ON 

KEY 

7 

LABEL 

II II 

GOTO 

12590 



12660 

ON 

KEY 

8 

LABEL 

II II 

GOTO 

12590 




12670 END LOOP 
12680 OFF KEY 
12690 Open=l 
12700 GOTO Subend 
12710 OFF KEY 
12720 0pen=0 
12730 Subend:! 

12740 SUBEND 

12750 SUB Symbol (Symbol) 

12760 Symbol: REM SELECT SYMBOL 
12770 LOOP 

12780 ON KEY 1 LABEL "STAR" GOTO 12890 

12790 ON KEY 2 LABEL "TRIANGLE" GOTO 12910 

12800 ON KEY 3 LABEL "DIMOUND" GOTO 12930 

12810 ON KEY 4 LABEL "HOUSE" GOTO 12950 

12820 ON KEY 5 LABEL "SQUARE" GOTO 12970 

12830 !ON KEY 5 LABEL " X " GOTO 12780 

12840 !ON KEY 6 LABEL " + " GOTO 12800 

12850 ON KEY 6 LABEL "SIDE TRIANGLE" GOTO 13030 

12860 ON KEY 7 LABEL " * " GOTO 13050 

12870 ON KEY 8 LABEL "CIRCLE" GOTO 13070 

12880 END LOOP 

12890 Symbol=l 

12900 GOTO Subend 

12910 Symbol=2 

12920 GOTO Subend 

12930 Symbol=3 

12940 GOTO Subend 

12950 Symbol=4 

12960 GOTO Subend 

12970 Symbol=5 

12980 GOTO Subend 

12990 Symbol=6 

13000 GOTO Subend 

13010 Symbol=7 

13020 GOTO Subend 

13030 Symbol=8 

13040 GOTO Subend 

13050 Symbol=9 

13060 GOTO Subend 

13070 Symbol=10 

13080 OFF KEY 

13090 Subend:! 

13100 SUBEND 

13110 SUB Plot_symbol (X5,Y5, Symbol ,H) 


13120 ON Symbol GOTO Symbol 1 , Symbol 2 , Symbol 3 , Symbol4 , Symbol 5, Symbol 6 , Symbol 7 , Sym 

bol8 , Symbol9 , SymbollO 

13130 1STAR SYMBOL 

13140 Symbol 1: l 

13150 I PLOT 0 , . 01*Y5 , -2 

13160 IPLOT . 006*X5/RATIO, - . 018*Y5 , -1 

13170 IPLOT - . 0155*X5/RATIO, .011*Y5,-1 

13180 IPLOT . 019*X5/RATIO, 0,-1 

13190 IPLOT 0155*X5/RATIO, 011* Y5, -1 

13200 IPLOT . 006*X5/RATIO, . 018*Y5 , -1 

13210 IPLOT 0 , - . 01*Y5 , -2 

13220 IPLOT 0,0, H 

13230 GOTO Subend 

13240 Symbol2 : ! 

13250 ! TRIANGLE SYMBOL 

13260 IPLOT 0 , . 01*Y5 , -2 

13270 IPLOT . 01*X5/RATIO ,-.02*Y5,-l 

13280 IPLOT 02*X5/RATIO, 0,-1 

13290 IPLOT . 01*X5/RATIO , . 02*Y5 , -1 

13300 IPLOT 0 , — . 01*Y5 , -2 

13310 IPLOT 0,0, H 

13320 GOTO Subend 

13330 PENUP 

13340 Symbol 3 : ! 

13350 ! DIMAOND 

13360 IPLOT 0 , . 01*Y5 , -2 

13370 IPLOT . 01*X5/RATIO, - . 01*Y5 , -1 

13380 IPLOT - . 01*X5/RATIO , - . 01*Y5 , -1 

13390 IPLOT - . 01*X5/RATIO, . 01*Y5 , -1 

13400 IPLOT . 01*X5/RATIO, . 01*Y5 , -1 

13410 IPLOT 0 , - . 01*Y5 , -2 

13420 IPLOT 0,0, H 

13430 GOTO Subend 

13440 PENUP 

13450 Symbol4 : ! 

13460 ! HOUSE 

13470 IPLOT 0 , . 01*Y5 , -2 

13480 IPLOT . 01*X5/RATIO , - . 01*Y5 , -1 

13490 IPLOT 0 , - . 01*Y5 , -1 

13500 IPLOT - . 02*X5/RATIO ,0,-1 

13510 IPLOT 0 , . 01*Y5 , -1 

13520 IPLOT . 01*X5/RATIO, .01*Y5,-1 

13530 IPLOT 0 , - . 01*Y5 , -2 

13540 IPLOT 0,0, H 

13550 GOTO Subend 

13560 PENUP 

13570 Symbol5: ! 

13580 ! SQUARE SYMBOL 

13590 IPLOT - . 01*X5/RATIO , ,01*Y5,-2 

13600 IPLOT . 02*X5/RATIO, 0,-1 

13610 IPLOT 0 , - . 02 *Y5 , -1 

13620 IPLOT 02*X5/RATIO, 0, -1 

13630 IPLOT 0 , . 02*Y5 , -1 

13640 IPLOT . 01*X5/RATIO, - . 01*Y5 , -2 

13650 IPLOT 0,0, H 

13660 GOTO Subend 

13670 PENUP 

13680 Symbol6 : ! 

13690 ! X SYMBOL 

13700 IPLOT - . 01*X5/RATIO, . 01*Y5 , -2 


13710 IPLOT . 02*X5/RATIO, - . 02*Y5 , -1 

13720 IPLOT 0 , . 02*Y5 , -2 

13730 IPLOT - . 02*X5/RATIO, - . 02*Y5 , -1 

13740 IPLOT . 01*X5/RATIO , .01*Y5,-2 

13750 IPLOT 0,0, H 

13760 GOTO Subend 

13770 PENUP 

13780 Symbol7 : I 

X3790 1 + SYMBOL 

13800 IPLOT . 01*X5/RATIO, 0, -2 

13810 IPLOT 02*X5/RATIO, 0,-1 

13820 IPLOT . 01*X5/RATIO, . 01*Y5 , -2 

13830 IPLOT 0 , - . 02*Y5 , -1 

13840 IPLOT 0 , . 01*Y5 , -2 

13850 IPLOT 0,0, H 

13860 GOTO Subend 

13870 PENUP 

13880 Symbol8: ! 

13890 ! TRINAGLE ON SIDE SYMBOL 

13900 IPLOT - . 01*X5/RATIO , . 01*Y5 , -2 

13910 IPLOT 0 , - . 02*Y5 , -1 

13920 IPLOT . 02*X5/RATIO ,0,-1 

13930 IPLOT -. 02*X5/RATIO, . 02*Y5, -1 

13940 IPLOT .01*X5/RATIO,-.01*Y5,-2 

13950 IPLOT 0,0, H 

13960 GOTO Subend 

13970 Symbol9: ! 

13980 ! * SYMBOL 

13990 IPLOT 0 , . 01*Y5 , -2 

14000 IPLOT 0 , - . 02*Y5 , -1 

14010 IPLOT - . 01*X5/RATIO ,0,-2 

14020 IPLOT . 02*X5/RATIO, . 02*Y5 , -1 

14030 IPLOT -. 02*X5/RATIO, 0,-2 

14040 IPLOT . 02*X5/RATIO , - . 02*Y5 , -1 

14050 IPLOT -. 01*X5/RATIO, .01*Y5,-1 

14060 IPLOT 0,0, H 

14070 GOTO Subend 

14080 SymbollO: ! 

14090 ! CIRCLE 

14100 DEG 

14110 FOR Deg=0 TO 360 STEP 5 

14120 RPLOT . 01 *X 5 *SIN (Deg) /RATIO, . 01*Y5*COS (Deg) , 1 

14130 NEXT Deg 

14140 RPLOT 0,0, H 

14150 GOTO Subend 

14160 Subend: ! 

14170 SUBEND 

14180 SUB Aclear ! SUB TO Clear Screen OF PRINT 
14190 OUTPUT 2 USING "#,B";255,75 ! USE Aclear AS A 

14200 SUBEND 

14210 SUB Plotequation(Xmin,Xmax,Deltax) 

14220 DIM Eq$ [80] 

14230 LOOP 

14240 ON KEY 1 LABEL "SCREEN" GOTO 14290 

14250 ON KEY 2 LABEL "" GOTO 14230 

14260 ON KEY 3 LABEL "" GOTO 14230 

14270 ON KEY 4 LABEL "PLOTTER" GOTO 14330 

14280 END LOOP 

14290 OFF KEY 

14300 Plotflag=l 


SINGLE STATEMENT 


14310 Intplot 
14320 GOTO 14350 
14330 OFF KEY 
14340 Plotter (Pen, Vel) 

14350 DISP ’’SELECT LINE TYPE FOR EQUATION”; 

14360 Linetype (Linetype) 

14370 LOOP 

14380 ON KEY 1 LABEL 
14390 ON KEY 2 LABEL 
14400 ON KEY 3 LABEL 
14410 ON KEY 4 LABEL 
14420 END LOOP 
14430 OFF KEY 
14440 Intprint 
14450 GOTO 14510 
14460 OFF KEY 
14470 Noprint=l 
14480 GOTO 14510 
14490 OFF KEY 
14500 Extprint 
14510 DISP 
14520 DISP ’’INPUT FILE FOR EQUATION”; 

14530 INPUT File$ 

14540 DISP "INPUT XMIN , XMAX , DELTAX" ; 

14550 INPUT Xmin , Xmax , Deltax 
14560 LOADSUB ALL FROM File$ 

14570 Equation (Xmin, Ymin,Eq$) 

14580 MOVE Xmin,Y i START OF PLOT LOCATION 

14590 DEG ! SELECT DEG MODE 

14600 FOR X=Xmin TO Xmax STEP Deltax 
14610 Equation (X,Y,Eq$) 

14620 IF Noprint=l THEN 14640 

14630 PRINT X, Y 

14640 DRAW X,Y 

14650 NEXT X 

14660 Intprint 

14670 Intplot 

14680 LINE TYPE 1 

14690 DELSUB Equation 

14700 SUBEND 

14710 SUB Compare (D (*) , Eq$ , Std_dev) 

14720 OPTION BASE 1 

14730 MASS STORAGE IS Data$ !MSI OF DATA STORAGE 

14740 ON ERROR GOTO Error 
14750 Datafile:! 

14760 DISP 

14770 DISP "INPUT DATA FILE NAME"; 

14780 INPUT File$ 

14790 DISP 

14800 DISP "INPUT REC/FILE FOR ";File$; 

14810 INPUT Npts 
14820 REDIM Dat(Npts,2) 

14830 ASSIGN @Ab TO File$ 

14840 ENTER @Ab;Dat(*) 

14850 MASS STORAGE IS Program$ ! MSI OF PROGRAM FILE 

14860 Equation: ! 

14870 Eq=l 

14880 ON ERROR GOTO Error 

14890 DISP 

14900 DISP ” INPUT FILE NAME FOR EQUATION"; 


"PRINT INT" GOTO 14430 
"NO PRINT” GOTO 14460 
"" GOTO 14370 
"PRINT EXT" GOTO 14490 


14910 INPUT File$ 

14920 LOADSUB ALL FROM File$ 

14930 FOR 1=1 TO Npts 
14940 X=Dat (I , 1) 

14950 Equation (X,Y,Eq$) 

14960 Sumdif f=Sumdiff+ (Dat (I , 2 ) -Y) 

14970 Sumsq=Sumsq+ ( Dat ( I , 2 ) -Y ) * ( Dat ( I , 2 ) -Y ) 

14980 NEXT I 

14990 Std_dev= ( (Sumsq- (Sumdif f*Sumdiff)/Npts)/ (Npts-1) ) A .5 
15000 LOOP 

15010 ON KEY 1 LABEL "PRINT SCREEN" GOTO 15090 

15020 ON KEY 2 LABEL "" GOTO 15000 

15030 ON KEY 3 LABEL "" GOTO 15000 

15040 ON KEY 4 LABEL "EXTERNAL PRINT" GOTO 15060 

15050 END LOOP 

15060 OFF KEY 

15070 Extprint 

15080 GOTO 15110 

15090 OFF KEY 

15100 Intprint 

15110 PRINT "FOR EQUATION " ;Eq$ 

15120 PRINT USING " 3 0 A , MD . 3 DE " ; " THE STD DEV OF (Y-CAL Y) IS ";Std dev 
15130 PRINT 

15140 PRINT " DATA (X) DATA ( Y ) CAL Y Y-CAL Y 

SIGMA" 

15150 FOR 1=1 TO Npts 
15160 X=Dat (I , 1) 

15170 Equation (X,Y,Eq$) 

15180 PRINT USING 15190 ; I , Dat (I , 1) , Dat (I , 2 ) , Y, Dat (I , 2 ) -Y, (Dat (I , 2 ) -Y) /Std dev 
15190 IMAGE DDDD, 5X,MD. 3DE, 5X f MD. 3DE, 5X,MD. 3DE, 5X,MD. 3DE, 5X, DD. DD 
15200 NEXT I 
15210 PRINT USING "//" 

15220 DELSUB Equation 
15230 GOTO Subend 
15240 Error: ! 

15250 CAT 

15260 PRINT "ERROR DETECTED " 

15270 PRINT "CHECK FILE NAME AND/OR REC/FILE " 

15280 PRINT "CONTINUE WHEN READY" 

15290 PAUSE 

15300 OFF ERROR 

15310 IF Eq=l THEN 15330 

15320 GOTO Datafile 

15330 GOTO Equation 

15340 Subend: ! 

15350 Intprint 

15360 SUBEND 

15370 SUB Datacheck (Dat (*), Npts) 

15380 OPTION BASE 1 
15390 Printdata:! 

15400 FOR 1=1 TO Npts 

15410 PRINT I , Dat (1,1) , Dat (1,2) 

15420 NEXT I 

15430 PRINT USING "//" 

15440 Datamod: ! 

15450 LOOP 

15460 ON KEY 1 LABEL "ADD DATA" GOTO 15650 
15470 ON KEY 2 LABEL "SORT <X" GOTO 16020 
15480 ON KEY 4 LABEL "MOD DATA" GOTO 15720 
15490 ON KEY 5 LABEL "SORT <Y" GOTO 16060 



15500 ON KEY 7 LABEL "REMOVE DATA" GOTO 15750 
15510 ON KEY 3 LABEL "SORT >X" GOTO 15940 
15520 ON KEY 9 LABEL "INT PRINT" GOTO Intprint 
15530 ON KEY 6 LABEL "SORT >Y" GOTO 15980 
15540 ON KEY 10 LABEL "EXT PRINT" GOTO Extprint 
15550 ON KEY 8 LABEL "DATA OK, (EXIT) " GOTO Subend 
15560 ON KEY 15 LABEL "KBD1" GOTO Control 
15570 ! ON KEY 7 LABEL "KBD2" GOTO Control 
15580 END LOOP 
15590 Control:! 

15600 IF ControKl THEN Control=l 

15610 Control=Control+l 

15620 IF Control>=3 THEN Control=l 

15630 CONTROL KBD, 2 /Control 

15640 GOTO 15450 

15650 OFF KEY 

15660 Npts=Npts+l 

15670 REDIM Dat(Npts,2) 

15680 DISP 

15690 DISP "INPUT X,Y FOR DATA POINT ";Npts; 

15700 INPUT Dat(Npts,l) ,Dat(Npts,2) 

15710 GOTO Printdata 
15720 OFF KEY 

15730 Mod_data (Dat (*) ,Npts) 

15740 GOTO Printdata 
15750 OFF KEY 
15760 DISP 

15770 DISP "INPUT POINTS TO BE DELETED PI, PI"; 

15780 INPUT Ptl , Pt2 

15790 IF Pt2>=Ptl THEN 15840 

15800 Pl=Pt2 

15810 P2=Ptl 

15820 Ptl=Pl 

15830 Pt2=P2 

15840 Cc=0 

15850 FOR 1=1 TO Npts 

15860 IF I>Ptl-l AND I<Pt2+l THEN 15900 

15870 Cc=Cc+l 

15880 Dat ( Cc , 1 ) =Dat (1,1) 

15890 Dat ( Cc , 2 ) =Dat (1,2) 

15900 NEXT I 

15910 Npts=Npts- (Pt2-Ptl+1) 

15920 REDIM Dat (Npts, 2) 

15930 GOTO Printdata 

15940 OFF KEY 

15950 REDIM Dat (Npts, 2) 

15960 MAT SORT Dat(*,l) 

15970 GOTO Printdata 

15980 OFF KEY 

15990 REDIM Dat (Npts, 2) 

16000 MAT SORT Dat(*,2) 

16010 GOTO Printdata 

16020 OFF KEY 

16030 REDIM Dat (Npts, 2) 

16040 MAT SORT Dat(*,l) DES 
16050 GOTO Printdata 
16060 OFF KEY 
16070 REDIM Dat (Npts, 2) 

16080 MAT SORT Dat(*,2) DES 
16090 GOTO Printdata 


16100 Intprint:! 

16110 BEEP 

16120 Intprint 

16130 PRINT "PRINTER IS INTERNAL" 

16140 BEEP 
16150 GOTO 15450 
16160 Extprint: ! 

16170 BEEP 

16180 Extprint 

16190 PRINT "PRINTER IS EXTERNAL" 

16200 BEEP 
16210 GOTO 15450 
16220 Subend:! 

16230 SUBEND 

16240 SUB Mod_data (Dat (*) ,Npts) 

16250 OPTION BASE 1 
16260 Datamod: ! 

16270 Aclear 

16280 PRINT " SELECT DATA MOD FORM" 

16290 PRINT 

16300 PRINT "NOTE ; DROUND ROUNDS OFF TO SPECIFIED # OF SIGNIFICANT DIGITS" 
16310 PRINT " PROUND ROUNDS OFF TO SPECIFIED POWER OF TEN " 

16320 PRINT " FORMS 1,15 APPLY TO ALL POINTS " 

16330 PRINT 

16340 PRINT " 0. EXIT" 

16350! PRINT 

16360 PRINT "1 X=A*X A B+C 8 Y=A*Y A B+C" 

16370 PRINT "2 X=A*LOG (BX) +C 9 Y=A*LOG (BX) +C" 

16380 PRINT "3 X=A*LN(BX)+C 10 Y=A*LN(BX)+C " 

16390 PRINT "4 X=A*EXP (BX) +C 11 Y=A*EXP (BX) +C" 

16400 PRINT "5 X=A*10 A (BX) +C 12 Y=A*10 A (BY) +C" 

16410 PRINT "6 X=DROUND(X, A) 13 Y=DROUND(Y, A) " 

16420 PRINT "7 X=PROUND ( X , A) 14 Y=PROUND(Y, A) " 

16430 PRINT " 15 SWAP X AND Y VALUES " 

16440 PRINT " 16 USER DEFINED MOD OF DATA " 

16450 PRINT " 17 MOD X,Y OF A SELECTED POINTS" 

16460 PRINT 
16470 BEEP 

16480 DISP "INPUT FORM "; 

16490! PAUSE 

16500 INPUT Form 

16510 IF Form=0 THEN Subend 

16520 IF Form>5 AND Form<8 THEN 16600 

16530 IF Form>12 THEN 16580 

16540 DISP 

16550 DISP "INPUT A,B,C"; 

16560 INPUT A, B, C 
16570 GOTO Moddata 
16580 IF Form>14 THEN 16630 
16590 DISP 

16600 DISP "INPUT A"; 

16610 INPUT A 

16620 GOTO Moddata 

16630 IF Form>15 THEN GOTO 16720 

16640 ! SWAP X&Y 

16650 FOR 1=1 TO Npts 

16660 Tempx=Dat ( I , 2 ) 

16670 Tempy=Dat (I , 1) 

16680 Dat (I, 1) =Tempx 
16690 Dat (1,2) =Tempy 


16700 NEXT I 

16710 GOTO Datacheck 

16720 IF Form=16 THEN GOTO Userdefined 
16730 DISP 

16740 DISP "INPUT POINT #, New X, New Y" ? 

16750 INPUT Pt , X , Y 
16760 Dat(Pt,l)=X 
16770 Dat (Pt , 2 ) =Y 
16780 DISP 

16790 DISP "ANY MORE" ; 

16800 Yesno(R5) 

16810 ON R5 GOTO 16740,16820,16780 
16820 GOTO Datacheck 
16830 Moddata:! 

16840 Negflagx=0 

16850 Negflagy=0 

16860 FOR 1=1 TO Npts 

16870 ON Form GOTO Linx, Logx, Lnx, Expx, Tenx, Drounx, 


Prounx , Liny , Logy , Lny , E 


xpy , Teny , Drouny , Prouny 
16880 Next: ! 


16890 

16900 

16910 Linx: 

16920 

16930 

16940 

16950 

16960 

16970 Logx: 

16980 

16990 

17000 

17010 

17020 

17030 

17040 Lnx: 

17050 

17060 

17070 

17080 

17090 

17100 

17110 Expx: 

17120 

17130 

17140 Tenx: 

17150 

17160 

17170 Drounx: 

17180 

17190 

17200 Prounx: 

17210 

17220 

17230 Liny: 

17240 

17250 

17260 

17270 

17280 


NEXT I 

GOTO Datacheck 

i 

FOR J=1 TO B-l 

Dat (1,1) =Dat (1,1) *Dat(I, 1) 

NEXT J 

Dat (I , 1) =A*Dat (I , 1) +C 
GOTO Next 

j 

IF Negflagx=l THEN Next 
IF I>1 THEN 17020 
Negcheckx ( Dat ( * ) ,Npts,Negflagx) 

IF Negflagx=l THEN Next 
Dat (1,1) =A*LGT (B*Dat (1,1) )+C 
GOTO Next 

i 

IF Negflagx=l THEN Next 
IF I>1 THEN 17090 
Negcheckx (Dat (*) ,Npts,Negflagx) 
IF Negflagx=l THEN Next 
Dat (I , 1) =A*LOG (B*Dat (1,1) )+C 
GOTO Next 

Dat (I , 1) =A*EXP (B*Dat (I , 1) )+C 
GOTO Next 

I 

Dat (I, 1)=A*10 A (B*Dat (1,1) ) +C 
GOTO Next 

i 

Dat (1,1) =DROUND ( Dat (1,1) ,A) 

GOTO Next 

i 

Dat (1,1) =PROUND ( Dat (1,1) ,A) 

GOTO Next 

i 

• 

FOR J=1 TO B-l 

Dat ( J, 2) =Dat ( J, 2 ) *Dat ( J, 2) 

NEXT J 

Dat (1,2) =A*Dat (1,2) +C 
GOTO Next 


17290 

17300 

17310 

17320 

17330 

17340 

17350 

17360 

17370 

17380 

17390 

17400 

17410 

17420 

17430 

17440 

17450 

17460 

17470 

17480 

17490 

17500 

17510 

17520 

17530 

17540 

17550 

17560 

17570 

17580 

17590 

17600 

17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 

17710 

17720 

17730 

17740 

17750 

17760 

17770 

17780 

17790 

17800 

17810 

17820 

17830 

17840 

17850 

17860 

17870 

17880 


i 

IF Negflagy=l THEN Next 
IF I>1 THEN 17340 
Negchecky (Dat (*) ,Npts,Negflagy) 
IF Negflagy=l THEN Next 
Dat(I,2)=A*LGT(B*Dat(I,2) ) +C 
GOTO Next 

j 

IF Negflagy=l THEN Next 
IF I>1 THEN 17410 
Negchecky (Dat (*) ,Npts,Negflagy) 

IF Negflagy=l THEN Next 
Dat (I , 2) =A*LOG (B*Dat (I , 2) ) +C 
GOTO Next 

i 

Dat (1,2) =A*EXP ( B*Dat ( I , 2 ) ) +C 
GOTO Next 

i 

Dat (I , 2) =A*10 A (B*Dat (I , 2 ) ) +C 
GOTO Next 
! 

Dat (1,2) =DROUND ( Dat (1,2) ,A) 

GOTO Next 

i 

Dat (1,2) =PROUND ( Dat (1,2) ,A) 

GOTO Next 
Userdefined: ! 

FOR 1=1 TO Npts 
! Y = FUNCTION OF X OR Y 

1 X= FUNCTION OF X OR Y 

NEXT I 

GOTO Datacheck 

Datacheck: ! 

FOR 1=1 TO Npts 

PRINT I , Dat (1,1) , Dat (1,2) 

NEXT I 
DISP 

DISP " DATA OK ? 

Yesno (R5) 

ON R5 GOTO Subend, Datamod, 17650 
Subend: ! 

SUBEND 

SUB Negcheckx (Dat ( * ) ,Npts,Negflagx) 

OPTION BASE 1 

Negflagx=0 

FOR J=1 TO Npts 

IF Dat (J, 1) <=0 THEN 17780 

NEXT J 

GOTO 17800 

Negflagx=l 

PRINT "CAN NOT TAKE LOG OF NUMBER <=0" 

SUBEND 

SUB Negchecky (Dat (*) , Npts , Negf lagy) 

OPTION BASE 1 

Negflagy=0 

FOR J=1 TO Npts 

IF Dat ( J, 2 ) <=0 THEN 17880 

NEXT J 

GOTO 17900 

Negflagy=l 


Logy: 

Lny : 

Expy : 
Teny : 
Drouny : 
Prouny : 


17890 PRINT "CAN NOT TAKE LOG OF NUMBER <=0" 

17900 SUBEND 

17910 SUB Detzero(E(*) , D1,L5, Yvalue) 

17920 DISP 

17930 DISP " INPUT MIN X ,MAX X, STEP SIZE FOR INITIAL SEARCH"; 

17940 INPUT Minx, Maxx, Steps ize 
17950 Co=0 

17960 FOR X=Minx TO Maxx STEP Stepsize 

17970 Yvalue=0 

17980 Yvalue=E (Dl+1) 

17990 FOR J=D1 TO 1 STEP -1 
18000 Yvalue=Yvalue*X+E (J) 

18010 NEXT J 

18020 Yvalue=Yvalue* (L5=0 OR L5=2) +10 A Y* (L5=l OR L5=3) 

18030 IF Yvalue>0 THEN Minx=X-Stepsize 

18040 IF Yvalue>0 THEN Maxx=X+Stepsize+. 01*Stepsize 

18050 IF Yvalue>0 THEN Stepsize=Stepsize/10 

18060 IF Yvalue>0 THEN Co=Co+l 

18070 IF Yvalue>0 AND Co<7 THEN GOTO 17960 

18080 IF Yvalue>0 AND Co=7 THEN PRINT "VALUE OF POLY AT ";X;" EQUAL "; Yvalue 

18090 IF YvaluecO AND Co=7 THEN PRINT "DID NOT FIND A ZERO FOR POLY " 

18100 NEXT X 
18110 SUBEND 

18120 SUB Dataselect (Dfile$) 

18130 OPTION BASE 1 
18140 DIM Cat$(144) [80] 

18150 DIM C$(l) [80] 

18160 CAT TO Cat$(*) ! CAT OF DISC TO CAT$ 

18170 Cp=0 

18180 FOR 1=5 TO 144 

18190 IF Cat$ (I) =" " THEN 18280 

18200 Cp=Cp+l 

18210 IF I>4 THEN 18240 

18220 PRINT USING "DDD, 3A, 22A" ? I , " " ,Cat$ (I) [1, 22] 

18230 GOTO 18270 

18240 IF Cat$(I) [32,36]="BDAT " THEN 18260 
18250 GOTO 18270 

18260 PRINT USING "DDD, 3A, 21A, 23A" ;I, " " , Cat$ (I) [ 1 , 21] , Cat$ ( I) [ 32 , 55 ] 

18270 NEXT I 

18280 PRINT "ENTER 0 TO EXIT PROGRAM" 

18290 DISP "SELECT DATA FILE BY NUMBER 

18300 INPUT N 

18310 IF N=0 THEN 18330 

18320 Dfile$=Cat$(N) [1,10] 

18330 SUBEND 

18340 SUB Config36(Program$,Data$) 

18350 DISP 

18360 CONTROL KBD,2;1 

18370 DISP "SELECT OPTION"; 

18380 LOOP 


18390 

ON 

KEY 

0 

LABEL 

"PROGRAM" GOTO 18370 

18400 

ON 

KEY 

1 

LABEL 

"INT, 0" 

GOTO 

PinternalO 

18410 

ON 

KEY 

2 

LABEL 

"INT, 1" 

GOTO 

Pinternall 

18420 

ON 

KEY 

3 

LABEL 

"700,0" 

GOTO 

P7000 

18430 

ON 

KEY 

4 

LABEL 

"700,1" 

GOTO 

P7001 

18440 

ON 

KEY 

5 

LABEL 

"DATA " 

GOTO 

18380 

18450 

ON 

KEY 

6 

LABEL 

"INT, 0" 

GOTO 

DinternalO 

18460 

ON 

KEY 

7 

LABEL 

"INT, 1" 

GOTO 

Dinternall 

18470 

ON 

KEY 

8 

LABEL 

"700,0" 

GOTO 

D7000 

18480 

ON 

KEY 

9 

LABEL 

"700,1" 

GOTO 

D7001 


18490 

18500 

18510 

18520 

18530 

18540 

18550 

18560 

18570 

18580 

18590 

18600 

18610 

18620 

18630 

18640 

18650 

18660 

18670 

18680 

18690 

18700 

18710 

18720 

18730 

18740 

18750 

18760 

18770 

18780 

18790 

18800 

18810 

18820 

18830 

18840 

18850 

18860 

18870 

18880 

18890 

18900 

18910 

18920 

18930 

18940 

18950 

18960 

18970 

18980 

18990 

19000 

19010 

19020 

19030 

19040 

19050 

19060 

19070 

19080 


END LOOP 
PinternalO: ! 

Program$=" : INTERNAL4 , 0" 
GOTO Subend 
Pinternall: ! 

Program$=" : INTERNAL4 , 1" 
GOTO Subend 

P7000: Program$=" : ,700, 0" 

GOTO Subend 
P7001 : ! 

Prograiti$=" : ,700,1" 

GOTO Subend 
DinternalO: ! 

Data$=" : INTERNAL4 , 0" 

GOTO Subend 

Dinternall: ! 

Data$=" : INTERNAL, 4 , 1" 

GOTO Subend 

D7000 : Data$=": ,700,0" 

GOTO Subend 

D7001 : I 

Data$=": ,700,1" 

GOTO Subend 

Subend: ! 

BEEP 

Flag=Flag+l 

IF Flag=2 THEN 18790 

DISP 

DISP "SELECT NEXT OPTION"; 

IF Flag<=l THEN 18380 

PRINT "PROGRAM MSI IS ";Program$ 

PRINT "DATA MSI IS ";Data$ 

SUBEND 

SUB Config320(Program$,Data$) 
CONTROL KBD , 2 ; 1 

DISP 


DISP "SELECT OPTION"; 


LOOP 





ON 

KEY 

1 

LABEL 

"PROGRAM 

" GOTO 18840 

ON 

KEY 

2 

LABEL 

"" GOTO 

18860 

ON 

KEY 

3 

LABEL 

mm GOTO 

18860 

ON 

KEY 

4 

LABEL 

"" GOTO 

18860 

ON 

KEY 

5 

LABEL 

"704,0" 

GOTO PinternalO 

ON 

KEY 

6 

LABEL 

"704,1" 

GOTO Pinternall 

ON 

KEY 

7 

LABEL 

"700,0" 

GOTO PhpO 

ON 

KEY 

8 

LABEL 

"700,1" 

GOTO Phpl 

ON 

KEY 

9 

LABEL ' 

"DATA" GOTO 18840 

ON 

KEY 

10 

LABEL 

MM GOTO 

18860 

ON 

KEY 

11 

LABEL 

It II GOTO 

18860 

ON 

KEY 

12 

LABEL 

II II GOTO 

18860 

ON 

KEY 

13 

LABEL 

"704,0" 

GOTO DinternalO 

ON 

KEY 

14 

LABEL 

"704,1" 

GOTO Dinternall 

ON 

KEY 

15 

LABEL 

"700,0" 

GOTO DhpO 

ON 

KEY 

16 

LABEL 

"700,1" 

GOTO Dhpl 


END LOOP 
PinternalO : ! 

Program$=" : , 704 , 0" 
GOTO End 
Pinternall : ! 

Program$=" : , 704 , 1" 



19090 


GOTO End 

19100 

Phpl: 

i 

19110 


Prograxn$=" : ,700, 1" 

19120 


GOTO End 

19130 

PhpO: 

i 

19140 


Program$=": ,700,0" 

19150 


GOTO End 

19160 

DinternalO : 1 

19170 


Data$=" : ,704,0" 

19180 


GOTO End 

19190 

Dinternall : ! 

19200 


Data$=" : ,704,1" 

19210 


GOTO End 

19220 

Dhpl: 

i 

19230 


Data$=" : ,700,1" 

19240 


GOTO End 

19250 

DhpO: 

! 

19260 


Data$=" : ,700,0" 

19270 


GOTO End 

19280 

End: ! 


19290 

BEEP 


19300 

Flag= 

=Flag+l 

19310 

IF Flag=2 THEN 19360 

19320 

DISP 


19330 

DISP 

"SELECT NEXT OPTION 

19340 

CONTROL KBD, 2 ? 2 

19350 

IF Flag<=l THEN 18860 

19360 

DISP 


19370 

CONTROL KBD, 2 ; 1 

19380 

SUBEND 


ATTACHMENT D 


- SUMS SOFTWARE LISTING 


(6) SUMSDIS90 


10 ! 

20 

30 

31 ! 

40 ! 

50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
) 

290 
) 

300 INTEGER 
) 

310 INTEGER 
) 

320 
) 

330 
) 

340 
) 

350 
) 

360 


RE-STORE "SUMSDISP90" 

OPTION BASE 1 

DIM Me (2 ,14) I MATRIX FOR STORAGE OF STEP AND AMU DATA 
REVISION 5/15/90 RJD 

CONFIG3 6 ( PROGRAM $ , DATA$ ) 

Conf ig320 (Program$ , Data$) 

IREAD DATA FROM HARD DISK FILE 
INTEGER Mass_scale (12480) 

Picl (12480) , Pic2 (12480) ,Pic3(12480) ,Pic4(12480) ,Pic5(12480) 

Pic6 (12480) , Pic7 (12480) ,Pic8(12480) ,Pic9(12480) , PiclO (12480) 
Picll (12480) ,Picl2 (12480) , Picl3 (12480) , Picl4 (12480) , Picl5 (12480) 
PlCl6 (12480) ,Picl7 (12480) , Picl8 (12480) , Picl9 (12480) , Pic20 (12480) 
P1C21 (12480) ,Pic22 (12480) , Pic23 (12480) ,Pic24 (12480) , Pic25 (12480) 
Pic26 (12480) , Pic27 (12480) , Pic28 (12480) , Pic29 (12480) , Pic30 (12480) 
Pic3 1(12480) ,Pic32 (12480) ,Pic33 (12480) ,Pic34 (12480) , Pic35 (12480) 
Pic36 (12480) , Pic37 (12480) , Pic38 (12480) , Pic39 ( 12480) ,Pic40 (12480) 
P1C41 (12480) , Pic42 (12480) ,Pic43 (12480) , Pic44 (12480) , Pic45 (12480) 
P1C46 (12480) , Pic47 (12480) , Pic48 ( 12480) ,Pic49 (12480) , Pic50 ( 12480) 
Pic51 (12480) ,Pic52 (12480) , Pic53 ( 12480) , Pic54 (12480) , Pic55 ( 12480) 
Pic56 (12480) , Pic57 (12480) ,Pic5 8(12480) , Pic59 (12480) , Pic60 ( 12480) 
Pic61(12480) , Pic62 (12480) , Pic63 (12480) , Pic64 (12480) , Pic65 (12480) 
P1C66 (12480) , Pic67 (12480) , Pic68 (12480) , Pic69 (12480) , Pic7 0 ( 12480 ) 
Pic71(12480) ,Pic72 (12480) , Pic73 (12480) , Pic74 ( 12480) , Pic75 ( 12480 ) 
P1C76 (12480) , Pic77 (12480) , Pic78 (12480) , Pic79 ( 12480) , Pic80 (12480) 
P1C81 (12480) , Pic82 (12480) , Pic83 ( 12480) ,Pic84 (12480) , Pic85 (12480) 
Pic86 (12480) , Pic87 (12480) , Pic88 ( 12480) , Pic89 (12480) , Pic90 ( 12480) 
P1C91 (12480) ,Pic92 (12480) , Pic93 (12480) ,Pic94 (12480) , Pic95 (12480) 
P1C96 (12480) , Pic97 (12480) , Pic98 (12480) , Pic99 (12480) , PiclOO (12480) 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


INTEGER 


INTEGER Picl 01 (12480) , Picl 02 (12480) , PiclO 3 (12480) , Picl 04 (12480) , Picl05(12480 
Picl06 (12480) , Pic 107 (12480) , Picl08 (12480) , Picl09 (12480) , PicllO ( 12480 
Picl 11 (12480) , Picl 12 (12480) , Picll3 (12480) , Picll4 (12480) , Picl 15 (12480 
Picll6 (12480) , Picll7 (12480) , Picll8 (12480) , Picll9 (12480) , Picl20 (12480 
Picl 21 (12480) , Picl 2 2 (12480) , Picl23 (12480) ,Picl24 (12480) , Picl25 (12480 
Picl26 (12480) , Picl27 (12480) , Picl28 (12480) , Picl29 (12480) , Picl30 (12480 
Picl31 (12480) , Picl32 (12480) , Picl33 (12480) , Picl34 (12480) , Picl35 (12480 
Picl36 (12480) ,Picl37(12480) , Picl 3 8 (12480) , Picl39 (12480) , Picl4 0 ( 12480 
Picl41 (12480) , Picl 4 2 (12480) , Picl43 (12480) , Picl44 (12480) ,Picl45(12480 


INTEGER 

INTEGER 

INTEGER 

INTEGER 


INTEGER 


) 

370 INTEGER Index, Aa, Bb,Maxstep 
380 Maxstep=280 ! 360 

' Suns**? 1 (380) i Sumsbkg2 (380) ,Sumsbkg3 (380) , Sumsbkg4 (380) 

;bUMS(ONE SCAN) 

400 MASS STORAGE IS Data$ 

410 CAT 

420 DISP "INPUT FILE NAME"; 

430 INPUT Df ile$ 

440 GOTO Bypassbkg 

450 ASSIGN @Ab TO Dfile$ 

460 ENTER @Ab;Sums(*) 

470 IF Sums (6) =1 THEN MAT 

480 IF Sums (6) =2 THEN MAT 

490 IF Sums (6) =3 THEN MAT 


Sumsbkgl= 

Sumsbkg2= 

Sumsbkg3= 


Sums 

Sums 

Sums 


500 IF Sums (6) =4 THEN MAT Sumsbkg4= Sums 
510 Cc=Cc+l 

520 IF Cc>4 AND Sums (6) =4 THEN 550 
530 GOTO 460 
540 Bypassbkg: ! 

550 DISP "NUMPER OF SCANS TO SKIP INITIAL"; 

560 INPUT Skip 

570 DISP "INPUT NUMBER OF SCANS (MAX 145) TO DISPLAY"; 

580 INPUT Display 

590 DISP "INPUT NUMBER OF SCANS TO SKIP BETWEEN SCANS"; 

600 INPUT Skip_scan 
610 ASSIGN @Ab TO Dfile$ 

620 ENTER @Ab;Sums(*) 

630 Num_scan=Sums ( 4 ) 

640 ASSIGN @Ab TO Dfile$ 

650 GOSUB Graphplot 

660 FOR Sk=l TO Skip ! SELECT BEGAINING SCANS TO SKIP IN DISPLAY 
670 ENTER § Ab ; Sums ( * ) 

680 NEXT Sk 
690 Clear 

700 FOR Jj=l TO Display ! Num_scan TO DISPLAY 

710 FOR Dd=l TO Skip_scan+1 ! SELECT NUMBER TO SKIP BETWEEN SCANS 
720 ENTER @Ab;Sums(*) 

730 NEXT Dd 

740 IF Sums (5) <0 THEN 910 
750 GLOAD Mass_scale (*) 

760 GOSUB Englabel I ENG DATA OF SCAN 
770 MOVE 0 , ( Yl) 

780 FOR 1=14 TO Maxstep+13 

790 ON Sums ( 6 ) GOTO 800,820,840,860 

800 Sumsbkg=Sumsbkgl (I) 

810 GOTO 870 

820 Sumsbkg=Sumsbkg2 (I) 

830 GOTO 870 

840 Sumsbkg=Sumsbkg3 (I) 

850 GOTO 870 

860 Sumsbkg=Sumsbkg4 ( I ) 

870 IF (Sums (I) -Sumsbkg) <=0 THEN 890 

880 DRAW 1-13, LGT (Sums (I) -Sumsbkg) ! DRAWS SCAN 

890 NEXT I 

900 GOSUB Store ! STORES SCAN BY GSTORE INTERNAL STORAGE 

910 NEXT Jj 

920 FOR Jj=l TO Display ! NUM_SCAN CURRENT LIMIT 50 DUE TO MEMORY 

93 0 GOSUB Load 1 LOAD DATA TO SCREEN GLOAD 

940 WAIT 1 ! ONE SEC BETWEEN SCANS DISP 

950 NEXT Jj 

960 GOTO 920 

970 PAUSE 

980 Graphplot: i *********************************************************** 
990 ! "GRAPHPLOT" 

1000 IF Cc<>0 THEN 1010 
1010 PEN 0 

1020 PLOTTER IS 3, "INTERNAL" 

1030 GINIT 

1040 ALPHA ON 

1050 GRAPHICS OFF 

10601 DISP "PLOTTER OR SCREEN"; 

1070 C$="S" 

1080 IF C$="S" OR C$="s" THEN 1130 

1090 DISP "SELECT PEN"; 


1100 

INPUT Pen 


1110 

PEN Pen 

705 , "HPGL" 

1120 

PLOTTER IS 

1130! 

1140 


GCLEAR 

1150 


ALPHA OFF 

1160 


GRAPHICS ON 

1170 

DEG 


1180 

Xl=Maxstep 


1190 

X2=0 



1200 X3=X1+. 1*ABS (X2-X1) 

1210 X4=X2-. 2*ABS (X2-X1) 

1220 Y1=LGT ( 1 . E-13 ) 

1230 Y2=LGT ( 1 . E-9 ) 

1240 Y3=Y1- . 1*ABS ( Y2-Y1) 

1250 Y4=Y2+ . 1*ABS ( Y2-Y1) 

1260 WINDOW X3,X4,Y3,Y4 
1270 LORG 5 
1280 CSIZE 3 
1290 MOVE 140,-9.5 

1300! LABEL "USE OF DATA PROHIBITED WITHOUT APPROVAL" 
1310! LABEL "OF PRINICAL TECHNOLOGIST" 


1320! FRAME 

1330 ! MOVE X3 , Y1+ . 01*Y1 
1340! DRAW X3,Y3 
1350! DRAW X1+.06*X1,Y3 
1360 ! MOVE X2-.06*X1,Y4 


1370! DRAW X4,Y4 

1380! DRAW X4,Y2-.01*Y1 % , 

1390 CLIP X1+ ( . 05*ABS (X2-X2) ) ,X2- ( . 05*ABS (X2-X1) ) , Yl- ( 
S ( Y2-Y1) ) 

1400! CLIP ON 
1410 PENUP 

1420 DIM A$ [80 ] , B$ [80 ] 

1430 A$="STEP NUMBER" 

1440 B$="ION CURRENT IN AMPERE" 

1450 MOVE XI, Yl 
1460 DRAW XI, Y2 
1470 DRAW X2,Y2 
1480 DRAW X2 , Yl 
1490 DRAW XI, Yl 
1500 J=1 

1510 FOR X=X1 TO X2 STEP X2-X1 
1520 FOR Y=Y1 TO Y2-1 STEP 1 
1530! MOVE X,Y ! DRAW DECADE LINES 

1540! DRAW X2,Y ! DRAWS DECADE LINES 
1550 FOR 1=1 TO 10 STEP 1 
1560 MOVE X, Y+LGT (I ) 

1570 I PLOT . 01*J* (X2-X1) ,0,1 

1580 I PLOT 01*J* (X2-X1) , 0, 1 

1590 IF I<10 THEN 1620 

1600 IPLOT J*. 04* (X2-X1) ,0,1 

1610 IPLOT J* (-. 04) * (X2-X1) , 0, 1 

1620 NEXT I 

1630 NEXT Y 

1640 PENUP 

1650 J=-l 

1660 NEXT X 

1670 FOR I=Y1 TO Y2 STEP 1 

1680 MOVE XI- . 045* (X2-X1) , I- . 015* (Y2-Y1) 


. 05*ABS (Y2-Y1) ) ,Y2+( .05*AB 


1690 

CLIP OFF 


1700 

LORG 6 


1710 

CSIZE 2.5, .6 


1720 

LABEL "10" 


1730 

MOVE XI- . 016* (X2-X1) ,1 


1740 

LORG 5 


1750 

LABEL INT(I) 


1760 

CLIP ON 


1770 

NEXT I 


1780 

CLIP OFF 


1790 

MOVE XI- (X2-X1) * . 100 , (Y2+Yl)/2 


1800 

LDIR 90 

! DIRECTION OF YAXIS NAME 

1810 

CSIZE 4, . 6 

! SIZE OF YAXIS MAME 

1820 

LORG 6 

! CENTERS AND LOCATES YAXIS NAME 

1830 

LABEL (B$) 


1840 

LORG 1 

! NORMAL VALUE FOR LORG 

1850 

PENUP 


1860 

LDIR 0 

! NORMAL VALUE FOR LDIR 

1870! 

GOTO 630 ! BY PASS LABEL STEP 


1880 

FOR 1=0 TO XI STEP 10 


1890 

MOVE I , Y2 


1900 

I PLOT 0 , - . 05 


1910 

I PLOT 0 , + . 05 


1920 

NEXT I 


1930 

CSIZE 3 


1940 

LORG 5 


1950 

FOR 1=50 TO XI STEP 50 


1960 

MOVE I , Y2 


1970 

I PLOT 0,-.10 


1980 

I PLOT 0,+.10 


1990 

MOVE I, -8. 85 


2000 

LABEL I 


2010 

NEXT I 


2020 

MOVE (X2+X1J/2 ,Y2+.100*(Y2-Y1) 


2030 

CSIZE 4.5, .6 

! SIZE OF XAXIS NAME 

2040 

LORG 6 

! CENTERS AND LOCATES XAXIS NAME 

2050 

LABEL A$ 


2060 

i 

« 


2070 

! 11 S TE P AMU 11 ****************************************************** 

2080 

! CAL OF STEP LOCATIONS FROM TWO 

KNOWN STEPS AND AMU 


2090 ! DISP "INPUT STEP,1 AMU 1"; 

2100 ! INPUT Stepl, Amul 
2110 Stepl=26 
2120 Amul=44 

2130 ! DISP "INPUT STEP 2, AMU 2"; 

2140 ! INPUT Step2 , Amu2 

2150 ! Step2=221 ! UTD INTEGRATION TEST 

2160 Step2=225 ! IVT INTEGRATION TEST 

2170 Amu2=14 

2180 A= (LOG (Amu2) -LOG (Amul) )/ (Step2-Stepl) 

2190 B=LOG (Amul) -A*Stepl 

2200 !******************************************************************** 
2210 ! PRINT "LGT (AMU) = SLOPE *STEP+ CONSTANT" 

2220 IPRINT "SLOPE = ";A;" CONSTANT = ";B 
2230 ! PRINT 

2240 ! PRINT "AMU" , "STEP" , "STEP RANGE" 

2250 LORG 5 
2260 CSIZE 3 
2270 FOR 1=1 TO 11 
2280 READ Amu 



2290 DATA 44,40,32,30,28,22,20,18,16,14,12 
2300 Step=INT ( (LOG (Amu) -B) /A+ . 5) 

2310 Me ( 1 , I ) =Amu 
2320 Me (2 , I) =Step 

2330 ! PRINT Amu, Step, Step-2 ; ;Step+2 

2340 MOVE Step, Y1 

2350 I PLOT 0 , + . 07 

2360 I PLOT 0 , - . 07 

2370 MOVE Step, Y1-. 03* (Y2-Y1) 

2380 LABEL Amu 

2390 NEXT I 

2400 RESTORE 

2410 FOR 1=7 TO 50 

2420 Step=INT ( (LOG (I) -B) /A+ . 5) 

2430 MOVE Step, Y1 
2440 I PLOT 0 , + . 025 
2450 I PLOT 0 , - . 025 
2460 MOVE Step, Y1 
2470 NEXT I 
2480 CSIZE 5 
2490 LORG 4 

2500 MOVE (X1-X2 )/2,Yl-.l*(Y2-Yl) 

2510 LABEL "MASS NUMBER" 

2520 1=44 

2530 Step=INT ( (LOG (I) -B) /A+ . 5) 

2540 LORG 5 
2550 CSIZE 3 
2560 MOVE Step, -9. 5 
2570 LABEL "C02" 

2580 1=40 

2590 Step=INT ( (LOG (I) -B) /A+ . 5) 

2600 MOVE Step, -9. 5 
2610 LABEL "A" 

2620 1=32 

2630 Step=INT ( (LOG (I) -B) /A+ . 5 ) 

2640 MOVE Step, -9. 5 
2650 LABEL "02" 

2660 1=28 

2670 Step=INT ( ( LOG ( I ) -B ) / A+ . 5 ) 

2680 MOVE Step, -9. 5 
2690 LABEL "N2/" 

2700 LABEL "CO" 

2710 1=18 

2720 Step=INT ( ( LOG ( I ) -B) /A+ . 5 ) 

2730 MOVE Step, -9. 5 
2740 LABEL "H20" 

2750 GSTORE Mass_scale ( * ) 

2760 RETURN 


2770 Englabel: ! ************************************************************* 

2780 ! PRODUCE SIDE LABEL FOR ENG WORDS 

2790 LORG 1 

2800 CSIZE 3 

2810 MOVE -5, -9. 2 

2820 LABEL "SUMS" 

2830 LABEL "" 

2840 LABEL "SERIAL" ; Sums ( 1) 

2850 LABEL "" 

2860 LABEL "FILE ";Sums(2) 

2870 LABEL "" 

2880 LABEL "INDEX" ; Sums ( 3 ) 


2890 


LABEL 

it n 

2900 


LABEL 

"SCANS" ;Sums (4) 

2910 


LABEL 

ii n 

2920 


LABEL 

"SCAN " ; Sums ( 5 ) 

2930 


LABEL 

ii ii 

2940 


LABEL 

"INT" ;Sums (6) 

2950 


LABEL 

ii ii 

2960 


LABEL 

"DAY"; Sums (7) 

2970 


LABEL 

ii n 

2980 


LABEL 

"HOUR" ;Sums (8) 

2990 


LABEL 

ii ii 

3000 


LABEL 

"MIN"; Sums (9) 

3010 


LABEL 

•i n 

3020 


LABEL 

"SEC "; Sums (10) 

3030 


LABEL 

ii ii ' 

3040 


LABEL 

"MSEC"; Sums (11) 

3050 


LABEL 

ii ii 

3060 


LABEL 

"PREAMP"; Sums (12 

3070 


LABEL 

n ii 

3080 


LABEL 

"SOURCE"; Sums (13 

3090 


RETURN 

3100 

Store: ! 


3110 

IF 

Jj >29 AND 

Jj <58 THEN 3170 

3120 

IF 

Jj>57 AND 

Jj <86 THEN 3180 

3130 

IF 

Jj >85 AND 

Jj <114 THEN 3190 

3140 

IF Jj>113 AND J j <142 THEN 320 

3150 

IF 

Jj>141 THEN 3210 


3160 ON Jj GOTO 3220,3240,3260,3280,3300,3320,3340,3360,3380,3400,3420,3440,3460 
,3480,3500,3520,3540,3560,3580,3600,3620,3640,3660,3680,3700,3720,3740,3760,3780 
3170 ON Jj-29 GOTO 3800,3820,3840,3860,3880,3900,3920,3940,3960,3980,4000,4020,4 
040,4060,4080,4100,4120,4140,4160,4180,4200,4220,4240,4260,4280,4300,4320,4340 
3180 ON Jj-57 GOTO 4360,4380,4400,4420,4440,4460,4480,4500,4520,4540,4560,4580,4 
600,4620,4640,4660,4680,4700,4720,4740,4760,4780,4800,4820,4840,4860,4880,4900 
3190 ON Jj ~85 GOTO 4920,4940,4960,4980,5000,5020,5040,5060,5080,5100,5120,5140,5 
160,5180,5200,5220,5240,5260,5280,5300,5320,5340,5360,5380,5400,5420,5440,5460 
3200 ON Jj-113 GOTO 5480,5500,5520,5540,5560,5580,5600,5620,5640,5660,5680,5700, 
5720,5740,5760,5780,5800,5820,5840,5860,5880,5900,5920,5940,5960,5980,6000,6020 
3210 ON Jj-141 GOTO 6040,6060,6080,6100 


3220 

GSTORE 

Picl (*) 

3230 

RETURN 

3240 

GSTORE 

Pic2 (*) 

3250 

RETURN 

3260 

GSTORE 

Pic3 (*) 

3270 

RETURN 

3280 

GSTORE 

Pic4 (*) 

3290 

RETURN 

3300 

GSTORE 

Pic5 (*) 

3310 

RETURN 

3320 

GSTORE 

Pic6 (*) 

3330 

RETURN 

3340 

GSTORE 

Pic7 (*) 

3350 

RETURN 

3360 

GSTORE 

Pic8 (*) 

3370 

RETURN 

3380 

GSTORE 

Pic9 (*) 

3390 

RETURN 

3400 

GSTORE 

PiclO (*) 

3410 

RETURN 

3420 

GSTORE 

Picll (*) 

3430 

RETURN 


3440 

GSTORE 

Picl2 (*) 

3450 

RETURN 


3460 

GSTORE 

Picl3 (*) 

3470 

RETURN 


3480 

GSTORE 

Picl4 (*) 

3490 

RETURN 


3500 

GSTORE 

Picl5 (*) 

3510 

RETURN 

3520 

GSTORE 

Picl6 (*) 

3530 

RETURN 


3540 

GSTORE 

Picl7 (*) 

3550 

RETURN 


3560 

GSTORE 

Picl8 (*) 

3570 

RETURN 


3580 

GSTORE 

Picl9 (*) 

3590 

RETURN 

3600 

GSTORE 

Pic20 (*) 

3610 

RETURN 


3620 

GSTORE 

Pic21 (*) 

3630 

RETURN 

3640 

GSTORE 

Pic22 (*) 

3650 

RETURN 


3660 

GSTORE 

Pic23 (*) 

3670 

RETURN 


3680 

GSTORE 

Pic24 (*) 

3690 

RETURN 


3700 

GSTORE 

Pic25 (*) 

3710 

RETURN 


3720 

GSTORE 

Pic26 (*) 

3730 

RETURN 

3740 

GSTORE 

Pic27 (*) 

3750 

RETURN 

3760 

GSTORE 

Pic28 (*) 

3770 

RETURN 

3780 

GSTORE 

Pic29 (*) 

3790 

RETURN 

3800 

GSTORE 

Pic30 (*) 

3810 

RETURN 

3820 

GSTORE 

Pic31 (*) 

3830 

RETURN 

3840 

GSTORE 

Pic32 (*) 

3850 

RETURN 

3860 

GSTORE 

Pic33 (*) 

3870 

RETURN 

3880 

GSTORE 

Pic34 (*) 

3890 

RETURN 

3900 

GSTORE 

Pic35 (*) 

3910 

RETURN 

3920 

GSTORE 

Pic36 (*) 

3930 

RETURN 


3940 

GSTORE 

Pic37 (*) 

3950 

RETURN 


3960 

GSTORE 

Pic38 (*) 

3970 

RETURN 


3980 

GSTORE 

Pic39 (*) 

3990 

RETURN 


4000 

GSTORE 

Pic40 (*) 

4010 

RETURN 


4020 

GSTORE 

Pic41 (*) 

4030 

RETURN 



GSTORE Pic42(*) 
RETURN 

GSTORE Pic43 (*) 
RETURN 

GSTORE Pic44 (*) 
RETURN 

GSTORE Pic45 (*) 
RETURN 

GSTORE Pic46 (*) 
RETURN 

GSTORE Pic47(*) 
RETURN 

GSTORE Pic48 (*) 
RETURN 

GSTORE Pic49 (*) 
RETURN 

GSTORE Pic50 (*) 
RETURN 

GSTORE Pic51 (*) 
RETURN 

GSTORE Pic52 ( * ) 
RETURN 

GSTORE Pic53 ( * ) 
RETURN 

GSTORE Pic54 ( *) 
RETURN 

GSTORE Pic55 ( *) 
RETURN 

GSTORE Pic56 ( *) 
RETURN 

GSTORE Pic57(*) 
RETURN 

GSTORE Pic58 ( *) 
RETURN 

GSTORE Pic59 (*) 
RETURN 

GSTORE Pic60(*) 
RETURN 

GSTORE Pic61 (*) 
RETURN 

GSTORE Pic62 (*) 
RETURN 

GSTORE Pic63 (*) 
RETURN 

GSTORE Pic64 (*) 
RETURN 

GSTORE Pic65 (*) 
RETURN 

GSTORE Pic66 (*) 
RETURN 

GSTORE Pic67 ( * ) 
RETURN 

GSTORE Pic68(*) 
RETURN 

GSTORE Pic69 (*) 
RETURN 

GSTORE Pic70 (*) 
RETURN 

GSTORE Pic71 (*) 


RETURN 




4640 

GSTORE Pic72(*) 

4650 

RETURN 

4660 

GSTORE Pic73 ( *) 

4670 

RETURN 

4680 

GSTORE Pic74 (*) 

4690 

RETURN 

4700 

GSTORE Pic75 ( *) 

4710 

RETURN 

4720 

GSTORE Pic76 (*) 

4730 

RETURN 

4740 

GSTORE Pic77 ( *) 

4750 

RETURN 

4760 

GSTORE Pic78(*) 

4770 

RETURN 

4780 

GSTORE Pic79 (*) 

4790 

RETURN 

4800 

GSTORE Pic80(*) 

4810 

RETURN 

4820 

GSTORE Pic81 (*) 

4830 

RETURN 

4840 

GSTORE Pic82 ( *) 

4850 

RETURN 

4860 

GSTORE Pic83 (*) 

4870 

RETURN 

4880 

GSTORE Pic84(*) 

4890 

RETURN 

4900 

GSTORE Pic85 ( *) 

4910 

RETURN 

4920 

GSTORE Pic86 (*) 

4930 

RETURN 

4940 

GSTORE Pic87(*) 

4950 

RETURN 

4960 

GSTORE Pic88(*) 

4970 

RETURN 

4980 

GSTORE Pic89 (*) 

4990 

RETURN 

5000 

GSTORE Pic90(*) 

5010 

RETURN 

5020 

GSTORE Pic91 (*) 

5030 

RETURN 

5040 

GSTORE Pic92 (*) 

5050 

RETURN 

5060 

GSTORE Pic93 (*) 

5070 

RETURN 

5080 

GSTORE Pic94 ( *) 

5090 

RETURN 

5100 

GSTORE Pic95 (*) 

5110 

RETURN 

5120 

GSTORE Pic96(*) 

5130 

RETURN 

5140 

GSTORE Pic97 (*) 

5150 

RETURN 

5160 

GSTORE Pic98 (*) 

5170 

RETURN 

5180 

GSTORE Pic99 (*) 

5190 

RETURN 

5200 

GSTORE PiclOO (*) 

5210 

RETURN 

5220 

GSTORE PiclOl (*) 

5230 

RETURN 



5240 

G STORE 

Picl02 (*) 

5250 

RETURN 


5260 

GSTORE 

Picl03 (*) 

5270 

RETURN 


5280 

GSTORE 

Picl04 (*) 

5290 

RETURN 


5300 

GSTORE 

Picl05 ( * ) 

5310 

RETURN 


5320 

GSTORE 

Picl06 (*) 

5330 

RETURN 


5340 

GSTORE 

Picl07 (*) 

5350 

RETURN 


5360 

GSTORE 

Picl08 (*) 

5370 

RETURN 


5380 

GSTORE 

Picl09 (*) 

5390 

RETURN 


5400 

GSTORE 

PicllO (*) 

5410 

RETURN 


5420 

GSTORE 

Piclll (*) 

5430 

RETURN 


5440 

GSTORE 

Picll2 (*) 

5450 

RETURN 

5460 

GSTORE 

Picll3 (*) 

5470 

RETURN 

5480 

GSTORE 

Picll4 (*) 

5490 

RETURN 


5500 

GSTORE 

Picll5 (*) 

5510 

RETURN 


5520 

GSTORE 

Picll6 (*) 

5530 

RETURN 


5540 

GSTORE 

Picll7 (*) 

5550 

RETURN 

5560 

GSTORE 

Picll8 (*) 

5570 

RETURN 

5580 

GSTORE 

Picll9 (*) 

5590 

RETURN 


5600 

GSTORE 

Picl20 (*) 

5610 

RETURN 


5620 

GSTORE 

Picl21 (*) 

5630 

RETURN 


5640 

GSTORE 

Picl22 (*) 

5650 

RETURN 

5660 

GSTORE 

Picl23 (*) 

5670 

RETURN 


5680 

GSTORE 

Picl24 (*) 

5690 

RETURN 


5700 

GSTORE 

Picl25 (*) 

5710 

RETURN 


5720 

GSTORE 

Picl26 (*) 

5730 

RETURN 


5740 

GSTORE 

Picl27 (*) 

5750 

RETURN 


5760 

GSTORE 

Picl28 (*) 

5770 

RETURN 


5780 

GSTORE 

Picl29 (*) 

5790 

RETURN 


5800 

GSTORE 

Picl30 (*) 

5810 

RETURN 


5820 

GSTORE 

Picl31 (*) 

5830 

RETURN 



5840 

GSTORE 

Picl32 (*) 


5850 

RETURN 



5860 

GSTORE 

Picl33 (*) 


5870 

RETURN 



5880 

GSTORE 

Picl34 (*) 


5890 

RETURN 



5900 

GSTORE 

Picl35 (*) 


5910 

RETURN 



5920 

GSTORE 

Picl36 (*) 


5930 

RETURN 



5940 

GSTORE 

Picl37 (*) 


5950 

RETURN 



5960 

GSTORE 

Picl38 (*) 


5970 

RETURN 



5980 

GSTORE 

Picl39 (*) 


5990 

RETURN 



6000 

GSTORE 

Picl40 (*) 


6010 

RETURN 



6020 

GSTORE 

Picl41 (*) 


6030 

RETURN 



6040 

GSTORE 

Picl42 (*) 


6050 

RETURN 



6060 

GSTORE 

Picl43 (*) 


6070 

RETURN 



6080 

GSTORE 

Picl44 (*) 


6090 

RETURN 



6100 

GSTORE 

Picl45 (*) 


6110 

RETURN 



6120 Load: 

i 



6130 

IF Jj >29 

AND Jj<58 THEN 

6190 

6140 

IF Jj >57 

AND Jj<86 THEN 

6200 

6150 

IF Jj >85 

AND Jj<114 THEN 

6210 

6160 

IF Jj >113 

i AND J j <142 THEN 6220 

6170 

IF Jj >141 

. THEN 6230 



6180 ON Jj GOTO 6240,6260,6280,6300,6320,6340,6360,6380,6400,6420,6440,6460,6480 
,6500,6520,6540,6560,6580,6600,6620,6640,6660,6680,6700,6720,6740,6760,6780,6800 
6190 ON Jj-29 GOTO 6820,6840,6860,6880,6900,6920,6940,6960,6980,7000,7020,7040,7 
060,7080,7100,7120,7140,7160,7180,7200,7220,7240,7260,7280,7300,7320,7340,7360 
6200 ON Jj-57 GOTO 7380,7400,7420,7440,7460,7480,7500,7520,7540,7560,7580,7600,7 
620,7640,7660,7680,7700,7720,7740,7760,7780,7800,7820,7840,7860,7880,7900,7920 
6210 ON Jj-85 GOTO 7940,7960,7980,8000,8020,8040,8060,8080,8100,8120,8140,8160,8 
180,8200,8220,8240,8260,8280,8300,8320,8340,8360,8380,8400,8420,8440,8460,8480 
6220 ON Jj-113 GOTO 8500,8520,8540,8560,8580,8600,8620,8640,8660,8680,8700,8720, 
8740,8760,8780,8800,8820,8840,8860,8880,8900,8920,8940,8960,8980,9000,9020,9040 
6230 ON Jj-141 GOTO 9060,9080,9100,9120 


6240 

GLOAD Picl(*) 

6250 

RETURN 

6260 

GLOAD Pic2 (*) 

6270 

RETURN 

6280 

GLOAD Pic3 (*) 

6290 

RETURN 

6300 

GLOAD Pic4 (*) 

6310 

RETURN 

6320 

GLOAD Pic5 (*) 

6330 

RETURN 

6340 

GLOAD Pic6 (*) 

6350 

RETURN 

6360 

GLOAD Pic7 (*) 

6370 

RETURN 

6380 

GLOAD Pic8 (*) 



6390 

RETURN 

6400 

GLOAD Pic9 (*) 

6410 

RETURN 

6420 

GLOAD PiclO (*) 

6430 

RETURN 

6440 

GLOAD Picll (*) 

6450 

RETURN 

6460 

GLOAD Picl2 (*) 

6470 

RETURN 

6480 

GLOAD Picl3 (*) 

6490 

RETURN 

6500 

GLOAD Picl4 (*) 

6510 

RETURN 

6520 

GLOAD Picl5 (*) 

6530 

RETURN 

6540 

GLOAD Picl6 (*) 

6550 

RETURN 

6560 

GLOAD Picl7 (*) 

6570 

RETURN 

6580 

GLOAD Picl8 (*) 

6590 

RETURN 

6600 

GLOAD Picl9 (*) 

6610 

RETURN 

6620 

GLOAD Pic20 ( * ) 

6630 

RETURN 

6640 

GLOAD Pic21 (*) 

6650 

RETURN 

6660 

GLOAD Pic22(*) 

6670 

RETURN 

6680 

GLOAD Pic23(*) 

6690 

RETURN 

6700 

GLOAD Pic24 ( *) 

6710 

RETURN 

6720 

GLOAD Pic25 (*) 

6730 

RETURN 

6740 

GLOAD Pic26(*) 

6750 

RETURN 

6760 

GLOAD Pic27(*) 

6770 

RETURN 

6780 

GLOAD Pic28(*) 

6790 

RETURN 

6800 

GLOAD Pic29 (*) 

6810 

RETURN 

6820 

GLOAD Pic30(*) 

6830 

RETURN 

6840 

GLOAD Pic31 (*) 

6850 

RETURN 

6860 

GLOAD Pic32(*) 

6870 

RETURN 

6880 

GLOAD Pic33 (*) 

6890 

RETURN 

6900 

GLOAD Pic34 (*) 

6910 

RETURN 

6920 

GLOAD Pic35 (*) 

6930 

RETURN 

6940 

GLOAD Pic3 6 ( *) 

6950 

RETURN 

6960 

GLOAD Pic37 ( *) 

6970 

RETURN 

6980 

GLOAD Pic38 (*) 


6990 

RETURN 

7000 

GLOAD Pic39 (*) 

7010 

RETURN 

7020 

GLOAD Pic40 (*) 

7030 

RETURN 

7040 

GLOAD Pic41 (*) 

7050 

RETURN 

7060 

GLOAD Pic42(*) 

7070 

RETURN 

7080 

GLOAD Pic43 (*) 

7090 

RETURN 

7100 

GLOAD Pic44 (*) 

7110 

RETURN 

7120 

GLOAD Pic45 (*) 

7130 

RETURN 

7140 

GLOAD Pic46 (*) 

7150 

RETURN 

7160 

GLOAD Pic47(*) 

7170 

RETURN 

7180 

GLOAD Pic48 ( * ) 

7190 

RETURN 

7200 

GLOAD Pic49 (*) 

7210 

RETURN 

7220 

GLOAD Pic50 (*) 

7230 

RETURN 

7240 

GLOAD Pic51 (*) 

7250 

RETURN 

7260 

GLOAD Pic52 (*) 

7270 

RETURN 

7280 

GLOAD Pic53 (*) 

7290 

RETURN 

7300 

GLOAD Pic54(*) 

7310 

RETURN 

7320 

GLOAD Pic55 (*) 

7330 

RETURN 

7340 

GLOAD Pic56 (*) 

7350 

RETURN 

7360 

GLOAD Pic57 (*) 

7370 

RETURN 

7380 

GLOAD Pic58(*) 

7390 

RETURN 

7400 

GLOAD Pic59(*) 

7410 

RETURN 

7420 

GLOAD Pic60 (*) 

7430 

RETURN 

7440 

GLOAD Pic61 (*) 

7450 

RETURN 

7460 

GLOAD Pic62 (*) 

7470 

RETURN 

7480 

GLOAD Pic63(*) 

7490 

RETURN 

7500 

GLOAD Pic64(*) 

7510 

RETURN 

7520 

GLOAD Pic65(*) 

7530 

RETURN 

7540 

GLOAD Pic66 (*) 

7550 

RETURN 

7560 

GLOAD Pic67(*) 

7570 

RETURN 

7580 

GLOAD Pic68 (*) 


7590 

RETURN 

7600 

GLOAD Pic69 (*) 

7610 

RETURN 

7620 

GLOAD Pic70 (*) 

7630 

RETURN 

7640 

GLOAD Pic71 (*) 

7650 

RETURN 

7660 

GLOAD Pic72 (*) 

7670 

RETURN 

7680 

GLOAD Pic73(*) 

7690 

RETURN 

7700 

GLOAD Pic74(*) 

7710 

RETURN 

7720 

GLOAD Pic75 (*) 

7730 

RETURN 

7740 

GLOAD Pic76 (*) 

7750 

RETURN 

7760 

GLOAD Pic77 (*) 

7770 

RETURN 

7780 

GLOAD Pic78 (*) 

7790 

RETURN 

7800 

GLOAD Pic79 (*) 

7810 

RETURN 

7820 

GLOAD Pic80 (*) 

7830 

RETURN 

7840 

GLOAD Pic81 (*) 

7850 

RETURN 

7860 

GLOAD Pic82(*) 

7870 

RETURN 

7880 

GLOAD Pic83 ( *) 

7890 

RETURN 

7900 

GLOAD Pic84(*) 

7910 

RETURN 

7920 

GLOAD Pic85 (*) 

7930 

RETURN 

7940 

GLOAD Pic86 (*) 

7950 

RETURN 

7960 

GLOAD Pic87(*) 

7970 

RETURN 

7980 

GLOAD Pic88 ( * ) 

7990 

RETURN 

8000 

GLOAD Pic89(*) 

8010 

RETURN 

8020 

GLOAD Pic90 (*) 

8030 

RETURN 

8040 

GLOAD Pic91 (*) 

8050 

RETURN 

8060 

GLOAD Pic92(*) 

8070 

RETURN 

8080 

GLOAD Pic93(*) 

8090 

RETURN 

8100 

GLOAD Pic94(*) 

8110 

RETURN 

8120 

GLOAD Pic95 (*) 

8130 

RETURN 

8140 

GLOAD Pic96 (*) 

8150 

RETURN 

8160 

GLOAD Pic97 (*) 

8170 

RETURN 

8180 

GLOAD Pic98(*) 


8190 

RETURN 

8200 

GLOAD Pic99(*) 

8210 

RETURN 

8220 

GLOAD PiclOO ( *) 

8230 

RETURN 

8240 

GLOAD PiclOl (*) 

8250 

RETURN 

8260 

GLOAD Picl02 (*) 

8270 

RETURN 

8280 

GLOAD Picl03 (*) 

8290 

RETURN 

8300 

GLOAD Picl04(*) 

8310 

RETURN 

8320 

GLOAD Picl05 (*) 

8330 

RETURN 

8340 

GLOAD Picl06 (*) 

8350 

RETURN 

8360 

GLOAD Picl07 ( * ) 

8370 

RETURN 

8380 

GLOAD Picl08 (*) 

8390 

RETURN 

8400 

GLOAD Picl09(*) 

8410 

RETURN 

8420 

GLOAD PicllO (*) 

8430 

RETURN 

8440 

GLOAD Piclll (*) 

8450 

RETURN 

8460 

GLOAD Picll2 (*) 

8470 

RETURN 

8480 

GLOAD Picll3 (*) 

8490 

RETURN 

8500 

GLOAD Picll4 (*) 

8510 

RETURN 

8520 

GLOAD Picll5 (*) 

8530 

RETURN 

8540 

GLOAD Picll6 (*) 

8550 

RETURN 

8560 

GLOAD Picll7 (*) 

8570 

RETURN 

8580 

GLOAD Picll8 ( *) 

8590 

RETURN 

8600 

GLOAD Picll9 (*) 

8610 

RETURN 

8620 

GLOAD Picl20(*) 

8630 

RETURN 

8640 

GLOAD Picl21 (*) 

8650 

RETURN 

8660 

GLOAD Picl22(*) 

8670 

RETURN 

8680 

GLOAD Picl23 (*) 

8690 

RETURN 

8700 

GLOAD Picl24 (*) 

8710 

RETURN 

8720 

GLOAD Picl25 (*) 

8730 

RETURN 

8740 

GLOAD Picl26 (*) 

8750 

RETURN 

8760 

GLOAD Picl27 ( * ) 

8770 

RETURN 

8780 

GLOAD Picl28 (*) 



8790 

8800 

8810 

8820 

8830 

8840 

8850 

8860 

8870 

8880 

8890 

8900 

8910 

8920 

8930 

8940 

8950 

8960 

8970 

8980 

8990 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9130 

9140 

9150 

9160 

9170 

9180 

9190 

9200 

9210 

9220 

9230 

9240 

9250 

9260 

9270 

9280 

9290 

9300 

9310 

9320 

9330 

9340 

9350 

9360 

9370 

9380 


RETURN 

GLOAD Picl29 ( *) 

RETURN 

GLOAD Picl30 (*) 

RETURN 

GLOAD Picl31 (*) 

RETURN 

GLOAD Picl32(*) 

RETURN 

GLOAD Picl33 (*) 

RETURN 

GLOAD Picl34 (*) 

RETURN 

GLOAD Picl35(*) 

RETURN 

GLOAD Picl36(*) 

RETURN 

GLOAD Picl37 (*) 

RETURN 

GLOAD Picl38 (*) 

RETURN 

GLOAD Picl39 ( * ) 

RETURN 

GLOAD Picl40(*) 

RETURN 

GLOAD Picl41 ( *) 

RETURN 

GLOAD Picl42 (*) 

RETURN 

GLOAD Picl43(*) 

RETURN 

GLOAD Picl44(*) 

RETURN 

GLOAD Picl45(*) 

RETURN 

End: ! 

END 

SUB Clear ! SUB TO Clear Screen 

OUTPUT 2 USING "# , B" ; 255 , 75 ! USE Clear AS A SINGLE STATEMENT 

SUBEND 

SUB Conf ig36 (Program$ , Data$) 

DISP 


CONTROL KBD , 2 ? 1 

DISP "SELECT OPTION"; 

LOOP 


ON 

KEY 

0 

LABEL 

"PROGRAM" GOTO 9220 

ON 

KEY 

1 

LABEL 

"INT, 0" 

GOTO 

PinternalO 

ON 

KEY 

2 

LABEL 

"INT , 1" 

GOTO 

Pinternall 

ON 

KEY 

3 

LABEL 

"700,0" 

GOTO 

P7000 

ON 

KEY 

4 

LABEL 

"700,1" 

GOTO 

P7001 

ON 

KEY 

5 

LABEL 

"DATA " 

GOTO 

9230 

ON 

KEY 

6 

LABEL 

"INT , 0" 

GOTO 

DinternalO 

ON 

KEY 

7 

LABEL 

"INT, 1" 

GOTO 

Dinternall 

ON 

KEY 

8 

LABEL 

"700,0" 

GOTO 

D7000 

ON 

KEY 

9 

LABEL 

"700,1" 

GOTO 

D7001 


END LOOP 


PinternalO: ! 

Program$=" : INTERNAL4 , 0" 
GOTO Subend 
Pinternall: ! 


9390 

9400 

9410 

9420 

9430 

9440 

9450 

9460 

9470 

9480 

9490 

9500 

9510 

9520 

9530 

9540 

9550 

9560 

9570 

9580 

9590 

9600 

9610 

9620 

9630 

9640 

9650 

9660 

9670 

9680 

9690 

9700 

9710 

9720 

9730 

9740 

9750 

9760 

9770 

9780 

9790 

9800 

9810 

9820 

9830 

9840 

9850 

9860 

9870 

9880 

9890 

9900 

9910 

9920 

9930 

9940 

9950 

9960 

9970 

9980 


Program$=" : INTERNAL4 , 1" 
GOTO Subend 

P7000 : Program$=": ,700,0" 

GOTO Subend 
P7001: ! 

Program$=": ,700,1" 

GOTO Subend 
DinternalO: ! 

Data$=" : INTERNAL4 ,0" 

GOTO Subend 

Dinternall: ! 

Data$=" : INTERNAL, 4,1" 

GOTO Subend 

D7000 : Data$=": ,700,0" 

GOTO Subend 

D7001 : ! 

Data$=" : ,700,1" 

GOTO Subend 

Subend : ! 

BEEP 

Flag=Flag+l 

IF Flag=2 THEN 9640 

DISP 

DISP "SELECT NEXT OPTION"; 

IF Flag<=l THEN 9230 

PRINT "PROGRAM MSI IS ";Program$ 

PRINT "DATA MSI IS ";Data$ 

SUBEND 

SUB Conf ig320 (Program? , Data$) 
CONTROL KBD, 2 ; 1 

DISP 

DISP "SELECT OPTION"; 

LOOP 


ON 

KEY 

1 

LABEL " 

PROGRAM 

" GOTO 9690 

ON 

KEY 

2 

LABEL "" GOTO 

9710 


ON 

KEY 

3 

LABEL "" GOTO 

9710 


ON 

KEY 

4 

LABEL "" GOTO 

9710 


ON 

KEY 

5 

LABEL ' 

704,0" 

GOTO 

PinternalO 

ON 

KEY 

6 

LABEL ' 

704,1" 

GOTO 

Pinternall 

ON 

KEY 

7 

LABEL ' 

700,0" 

GOTO 

PhpO 

ON 

KEY 

8 

LABEL ' 

700,1" 

GOTO 

Phpl 

ON 

KEY 

9 

LABEL ' 

DATA" GOTO 9690 

ON 

KEY 

10 

LABEL 

•i i« goto 

9710 


ON 

KEY 

11 

LABEL 

•i ii goto 

9710 


ON 

KEY 

12 

LABEL 

•i ii goto 

9710 


ON 

KEY 

13 

LABEL 

"704,0" 

GOTO 

DinternalO 

ON 

KEY 

14 

LABEL 

"704,1" 

GOTO 

Dinternall 

ON 

KEY 

15 

LABEL 

"700,0" 

GOTO 

DhpO 

ON 

KEY 

16 

LABEL 

"700,1" 

GOTO 

Dhpl 


END LOOP 
PinternalO: ! 

Program$=" ; , 704 , 0" 
GOTO End 
Pinternall: ! 

Program$=" : , 704 , 1" 
GOTO End 
Phpl : ! 

Program$=" : ,700,1" 
GOTO End 
PhpO : ! 


9990 


Program$=" : , 700 , 0" 

10000 


GOTO End 

10010 

DinternalO : ! 

10020 


Data$=": ,704,0" 

10030 


GOTO End 

10040 

Dinternall : 1 

10050 


Data$=" : ,704,1" 

10060 


GOTO End 

10070 

Dhpl: 

j 

10080 


Data$=": ,700,1" 

10090 


GOTO End 

10100 

DhpO: 

i 

10110 


Data$=" : ,700,0" 

10120 


GOTO End 

10130 

End: ! 


10140 

BEEP 


10150 

Flag= 

=Flag+l 

10160 

IF Flag=2 THEN 10210 

10170 

DISP 


10180 

DISP 

"SELECT NEXT OPTION 

10190 

CONTROL KBD, 2 ; 2 

10200 

IF Flag<=l THEN 9710 

10210 

DISP 


10220 

CONTROL KBD , 2 ? 1 

10230 

SUBEND 


ATTACHMENT D - SUMS SOFTWARE LISTING 
(7) READPEADS: 


10 1 RE-STORE "READPEAKS" 

20 ! REVISION 5/15/90 RJD 

30 ! THIS PROGRAM ASSUMES THAT YOU HAVE DETERMINED THE STEP 

40 ! AND AMU NUMBERS VALUES FROM THE SUMS PROGRAM 

50 ! AND THE CORRECT VALUES ARE IN THE STEPAMU SUB 

60 ! THIS IS USED IN DETERMINING THE TIME FOR THE PEAK 

70 ! THE PLOT METHOD AND ASSUMES THAT YOU ARE GOING TO 

80 ! PLOT LOG CURRENT VS LINIER TIME AND THAT YOU ARE 

90 ! GOING TO CURVE FIT LOG CURRENT VS TIME 

100 GINIT 

110 GCLEAR 

120 PRINTER IS 1 

130 OPTION BASE 1 

140! Config36 (Program$,Data$) 

150 Conf ig320 (Program$ , Data$) 

160 DEG 

170 DIM Me (2 , 12) ! ME (1,1) AMU ME(2,I) STEP 

180 DIM Yaxis$ [ 80 ] , Xaxis$ [ 80 ] 

190 GOSUB Stepamu ! CAL STEP AND AMU VALUES FOR MATRIX Me ( ) 

200 ! TIME OF PEAK TP=TO+ (STEP+13) * (5/374) 

210 MASS STORAGE IS Data$ 

220 CAT 

230 DISP "INPUT FILE"? 

240 INPUT F$ 

250 ! F$="Peaks01_05" 

260 ! FILE SIZE DETERMINED BY (8 BYTE PER DATA POINT*12 DATA PT PER SCAN ) (96) 
270 ! ONE REC/FILE PER SCAN OR REC/FILE = NUMBER OF SCANS 
280 DISP "INPUT REC/FILE FOR »?F$? 

290 INPUT Rec_f ile 

300 ! Rec_file=30 

310 ALLOCATE Peaks (Rec_f ile , 12 ) 

320 ALLOCATE Times (Rec_f ile , 12 ) 

330 ALLOCATE D(2 ,Rec_file) 

340 Num_scan=Rec_f ile 
350 ASSIGN @Ab TO F$ 

360 ENTER @Ab; Peaks (*) 

370 MASS STORAGE IS Program$ 

380 ! ALLOCATE Eh (Rec_f ile , 3 ) 

390 ! FOR 1=1 TO Rec_file 

400 ! Eh (1,1) =Peaks (1,12) 

410 ! Eh(I,2)=Peaks(I,5) 

420 ! Eh (I , 3 ) = . 78 

430 ! NEXT I 

440 ! CREATE BDAT "TIMF" ,Rec_f ile, 24 

450 ! ASSIGN @Ab TO "TIMF" 

460 ! OUTPUT @Ab;Eh(*) 

470 ! TIME OF PEAK TP=TO+ (STEP+13) * (5/374) 

480 FOR 1=1 TO Num_scan 
490 To=Peaks(I,12) 

500 Times (I, 12)=To 
510 FOR J=1 TO 11 

520 Times (I, J)=To+(Me(2, J) +13) * (5/374) 

530 NEXT J 

540 NEXT I 

550 ! LOCATION OF CURRENTS IN PEAKS (I,#) 

560 ! (I , 1) =44 (I , 2) =40 (I,3)=32 (I,4)=30 (I,5)=28 (I,6)=22 (I,7)=20 (I,8)=18 

570 ! (1,9) =16 (I, 10) =14 (I,ll)=12 (1,12) = TIME IN SEC BEGAINING OF SCAN 

580 Bkg44=Peaks (1, 1) 

590 Bkg4 0=Peaks (1,2) 

600 Bkg32=Peaks (1 , 3 ) 



610 Bkg30=Peaks(l,4) 

620 Bkg28=Peaks (1, 5) 

630 Bkg22=Peaks (1,6) 

640 Bkg20=Peaks(l,7) 

650 Bkgl8=Peaks (1, 8) 

660 Bkgl6=Peaks (1, 9) 

670 Bkgl4=Peaks (1, 10) 

680 Bkgl2=Peaks (1, 11) 

690 Timeref=Peaks(l, 12) 

700 Pepeatplot=0 

710 GOSUB Plotpeak 

720 Repeatplot=l 

730 DISP "ANY MORE 

740 GOSUB Yesno 

750 ON R5 GOTO 710,760,730 

760 FOR 1=2 TO Num_scan . . 

770 ! PRINT USING 720 ; I , Peaks (I , 12 ) -Timeref , Peaks (I , 1) -Bkg44 , Peaks ( I , 2 ) -Bkg4 0 , 
aks (1,3) -Bkg3 2 , Peaks (1,4) -Bkg3 0 , Peaks (1,5) -Bkg2 8 
780 IMAGE DDD, 2X, DDD, 2X, 5 ( 2X ,MD. DDDE) 

790 NEXT I 

800 GOTO End 


810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


Stepamu : 1 

I DIM Me (2, 12) 

! "STEP_AMU" 

I CAL OF STEP LOCATIONS FROM TWO KNOWN STEPS AND AMU 
! DISP "INPUT STEP, 1 AMU 1"; 

! INPUT Stepl, Amul 

Stepl=26 

Amul=44 

IDISP "INPUT STEP 2, AMU 2"; 

! INPUT Step2 , Amu2 

Step2=225 

Amu2=14 

A= (LOG (Amu2) -LOG (Amul) ) / (Step2 -Stepl) 

B=LOG (Amul) -A* Stepl 

! PRINT " LGT ( AMU ) = SLOPE *STEP+CONSTANT" 

! PRINT "SLOPE = ";A;" CONSTANT = ";B 
1 PRINT 

! PRINT "AMU" , "STEP" , "STEP RANGE" 

FOR 1=1 TO 11 
READ Amu 

DATA 44,40,32,30,28,22,20,18,16,14,12 
Step=INT( (LOG (Amu) -B)/A+.5) 

Me ( 1 , I ) =Amu 
Me (2 , I) =Step 

! PRINT Amu, Step, Step-2 ;Step+2 
NEXT I 


RESTORE 

RETURN 

Plotpeak: 


IF Repeatplot=l THEN 1730 
G CLEAR 


GOSUB Plotselect 


1THIS SUB PLOTS THE PEAKS AS A FUNCTION OF REFERENCE SCAN 
OFF KEY 

Ref time=Times (1,12) 

Maxtime=INT (Times (Num_scan , 12 ) -Reftime) +10 
WINDOW 0- . 2*Maxtime , Maxtime+ . l*Maxtime , -15 . 5 , -8 . 9 



L200 


CLIP - . 01*Maxtime , Maxtime+ . 01*Maxtime, -14 . 05 , -8 . 9 

L210 


AXES 100,6. ,0,-14. ,2,6. 

L220 


AXES 100,-6. ,0,-9. 0,2, 6. 

L230 


CLIP OFF 

L24 0 


MOVE Maxtime, -14 

L250 


DRAW Maxtime, -9 

L260 


! FRAME 

L270 


j=ll *************this draws log tic marks********** 

L280 


FOR X=0 TO Maxtime STEP Maxtime 

L290 


FOR Y=-14 TO -10 STEP 1 

L300 


FOR 1=1 TO 10 STEP 1 

L310 


MOVE X, Y+LGT (I ) 

L320 


I PLOT . 01*J*Maxtime, 0 , 1 

L330 


I PLOT -. 01*J*Maxtime, 0, 1 

L340 


IF I<10 THEN 1370 

L350 


I PLOT . 04 * J *Maxt ime ,0,1 

L360 


I PLOT -. 04*J *Maxtime, 0 , 1 

L370 


NEXT I 

L380 


NEXT Y 

L390 


PENUP 

L400 


J=-l 

L410 


NEXT X 

L420 


CLIP OFF 

L430 


!*4t*4nk********4r*4r*4r*4r*4r*4t4t*ik4nk4r*4r**4t****4r*4r:fc*4r************ 

L440 


FOR I=— 14 TO -9 STEP 1 ! * 

L450 


MOVE -. 045*Maxtime, I-. 015* (7) ! * 

L460 


LORG 6 ! * 

L470 


CSIZE 2.5, .6 ! * 

L480 


LABEL "10" i * 

L490 


MOVE - . 016*Maxtime , I ! * 

L500 


LORG 5 i * 

L510 


LABEL INT(I) i * 

L520 


NEXT I I * 

L530 


J ********************************************************* 

L540 


FOR 1=0 TO Maxtime STEP 200 

L550 


MOVE I, -14. 2 

L560 


LORG 5 

L570 


CSIZE 2 

L580 


LABEL I 

L590 


NEXT I 

L600 


LORG 5 

L610 


CSIZE 3.5, .6 

L620 


Yaxis$="ION CURRENT - AMP" 

L630 


Xaxis$= "REFERENCE TIME IN SEC" 

.64 0 


LDIR 90 

.650 


LORG 6 

l660 


CSIZE 3.5 

.670 


MOVE - . l*Maxtime, -11 . 5 

.680 


LABEL Yaxis$ 

.690 


LDIR 0 

.700 


LORG 5 

.710 


MOVE Maxtime/2,-14.5 

.720 


LABEL Xaxis$; Peaks (1,12) 

.730 


LORG 5 

.740 


CSIZE 2 

.750 


Ccc=0 

.760 

1 

FOR Jj=l TO 11.1 STEP 1 

.770 

IF Plotter=705 AND Repeatplot=l THEN 1790 

.780 

GOTO 

1820 

.790 

DISP 

"SELECT PEN"; 


1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

10 )) 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

kg28) 

1990 

2000 

2010 

2020 

2030 

2040! 

2050 

2060 

2070 

2080 

2090 

2100 

2110 


INPUT Pen 
PEN Pen 

PRINT "44,40,32,30,28,22,20,18,16,14,12" 

PRINT " 1, 2, 3, 4, 5, 6, 7, 8, 9,10,11" 

DISP "INPUT PEAK NUMBER TO BE PLOTTED"; 

INPUT Jj 

MOVE Times (l,Jj) -Ref time, LGT( Peaks ( 1, Jj ) ) 

Ccc=Ccc+l 

FOR 1=2 TO Num_scan 

! MOVE Times (I, JJ) -Reftime, LGT (Peaks (I , JJ) -Bkg28* (JJ=5) -Bkgl4* (JJ- 

DRAW Times ( I, Jj ) -Ref time, LGT (Peaks (I, Jj) ) 

D ( 1 , 1-1 ) =Times ( I , J j ) -Ref time 
! D (2,1-1)= (Peaks (I, JJ) -Bkg28* ( JJ=5) -Bkgl4* ( JJ=10) ) 

D (2,1-1)= (Peaks (I, Jj ) ) 

IF CCC>1 THEN 1970 
! LABEL "X" 


) *100 


GOTO 1990 
LABEL "*" 
PRINT USING 

NEXT I 
GOSUB Poly 
NEXT Jj 
RETURN 


"DDD, 3X, DD.DDD" ;I, ( (Peaks (I, 10) -Bkgl4 ) / (Peaks ( I , 5 ) -B 


Poly: 
REM 


SUBS REQUIRED YESNO , ENTRY 1 , ENTRY2 , ENTRY3 , PLOTSELECT 
***************** *REGRES S ION ANALYSIS ************************ 

REM************ ************************************************* ********* 
No=Num_scan 
Vx=l 
Vy=2 

Second=0 

! PLOTTER IS 3, "INTERNAL" 


2120 ! Plotter=0 
2130 ! Pu=0 

2140 PRINT "Do You Wish A Polynomial Regression of the Data" 

2150 BEEP 

2160 WAIT 1 

2170 BEEP 

2180 GOSUB Yesno 

2190 ON R5 GOTO 2210,2200,2100 

2200 GOTO 5010 

2210 DISP "INPUT FROM SCAN # TO SCAN 

2220 INPUT Scanl , Scan2 

2230 Numscan=Scan2-Scanl+l 

2240 DIM Dd(255) ,E(50) 

2250 LOOP 

2260 L5=0 

2270 ON KEY 1 LABEL "LIN-LIN" GOTO 2320 

2280 ON KEY 2 LABEL "LOGY LINX" GOTO 2340 

2290 ON KEY 3 LABEL "LINY LOGX" GOTO 2360 

2300 ON KEY 4 LABEL "LOGY LOGX" GOTO 2380 

2310 END LOOP 

2320 L5=0 

2330 GOTO 2400 

2340 L5=l 

2350 GOTO 2400 

2360 L5=2 

2370 GOTO 2400 


2380 L5=3 

2390 ! 

2400 OFF KEY 

2410 ! PAUSE 

2420 GOSUB Prtdevice 

2430 FOR 1=1 TO 22 

2440 Dd(I) =0 

2450 E (I) =0 

2460 NEXT I 

2470 FOR 1=23 TO 253 

2480 Dd(I) =0 

2490 NEXT I 

2500 E (1) =1 

2510 W=0 

2520 Do=0 

2530 S1=0 

2540 S2=0 

2550 S3=0 

2560 S4=0 

2570 S5=0 

2580 IF Second=l THEN 2690 

2590 PRINT "N+l Data Points Required for Max Degree of N" 

2600 PRINT "Run Time is in Direct Relation to Max Degree Value" 

2610 PRINT "Max Degree program Allows is 201" 

2620 BEEP 

2630 PRINT "Input Max Degree for this plot is";Num scan-1 

2640 PRINT "INPUT Degree fit for this Plot" 

2650 GOSUB Entryl 

2660 ON R5 GOTO 2670,2640,2640 

2670 D1=Q5 

2680 D2=D1 

2690 PRINT "Dgree selected was";D2 
2700 IF D2>=No THEN 2590 
2710 BEEP 

2720 IMAGE DDDD , 2 DDDDDDDDDDDD . DDDD 

2730 IMAGE 2 DDDDDDDDDDDD. DDDD 

2740 FOR M=Scanl TO Scan2 STEP 1 

2750 IF L5=2 THEN 2790 

2760 IF L5=3 THEN 2790 

2770 E (2 ) =D (Vx,M) 

2780 GOTO 2800 

2790 E ( 2 ) =LGT ( D ( Vx , M) ) 

2800 IF L5=l THEN 2840 

2810 IF L5=3 THEN 2840 

2820 Y=D(Vy,M) 

2830 GOTO 2850 
2840 Y=LGT (D (Vy ,M) ) 

2850 FOR 1=2 TO D2 
2860 E (1+1) =E (I) *E (2 ) 

2870 NEXT I 
2880 E (D2+2 ) =Y 

2890 R=0 

2900 FOR 1=1 TO D2+2 

2910 FOR J=I TO D2+2 

2920 R=R+1 

2930 Dd (R) =Dd (R) +E (I) *E ( J) 

2940 NEXT J 

2950 NEXT I 

2960 S1=S1+E ( 2 ) 

2970 S2=S2+E ( 2 ) A 2 


2980 S3=S3+Y 

2990 S4=S4+Y*Y 

3000 S5=S5+E (2 ) *Y 

3010 Do=Do+l 
3020 NEXT M 
3030 REM 
3040 WAIT 1 

3050 PRINT "FOR PEAK";Jj;" FROM SCAN "?Scanl;" TO SCAN " ; Scan2 ; "THE COEFFICIEN 
TS ARE " 

3060 ! PRINT "COEFFICIENTS " 

3070 PRINT " " 

3080 GOTO 3460 
3090 T=0 

3100 FOR 1=1 TO Dl+1 

3110 E (I) =0 

3120 FOR J=1 TO Dl-I+2 

3130 R=(I+J-1) * (D2+2-. 5* (I+J) ) 

3140 E (I) =E (I) +Dd (T+J) *Dd (R) 

3150 NEXT J 

3160 T=I* (D2+ (3-1 ) /2 ) 

3170 NEXT I 
3180 R1=0 

3190 FOR 1=2 TO Dl+1 

3200 R1=R1+Dd (I*(D2+(3-I)/2) ) A 2 

3210 NEXT I 

3220 T0=Dd ( (D2+1) *(D2+2)/2) 

3230 T0=T0- (Dd (D2+1) ) A 2 

3240 PRINT "COEFFICIENTS FOR THIS DATA IS IN THE FORM" 

3250 IF L5=0 THEN 3290 

3260 IF L5=l THEN 3310 

3270 IF L5=2 THEN 3330 

3280 IF L5=3 THEN 3350 

3290 PRINT " y = AX A 2 + BX A 1 + C" 

3300 GOTO 3360 

3310 PRINT " LGT(Y) = AX A 2 + BX A 1 + C " 

3320 GOTO 3360 

3330 PRINT " Y = A (LGT X) A 2 + B (LGT X) A 1 + C" 

3340 GOTO 3360 

3350 PRINT " LGT(Y) = A (LGT X) A 2 + B (LGT X) A 1 + C" 

3360 PRINT " " 

3370 IMAGE DDD ; DDDDDDDDDDDD . DDDD 

3380 FOR 1=1 TO Dl+1 

3390 PRINT "E(";I-1;")= ";E(I) 

3400 NEXT I 

3410 PRINT " " 

3420 PRINT "R SQUARED = ";R1/T0 

3430 PRINT " " 

3440 GOTO 3860 

3450 PAUSE 

3460 P=1 

3470 W=1 

3480 D2=D2+1 

3490 FOR J=1 TO D2 

3500 IF Dd (P) <0 THEN 4960 

3510 Dd (P) =SQR (Dd (P) ) 

3520 FOR 1=1 TO D2-J+1 
3530 Dd(P+I)=Dd(P+I)/Dd(P) 

3540 NEXT I 

3550 R=P+I 

3560 S=R 


3570 FOR L=1 TO D2-J 
3580 P=P+1 

3590 FOR M=1 TO D2+2-J-L 

3600 Dd (R+M-l) =Dd (R+M-l) -Dd (P) *Dd(P+M-l) 

3610 NEXT M 

3620 R= R+M-l 

3630 NEXT L 

3640 P=S 

3650 NEXT J 

3660 T= (D2+1) * (D2+2 ) /2 

3670 FOR 1=1 TO D2-1 

3680 T=T-1-I 

3690 Dd(T) =l/Dd(T) 

3700 FOR J=1 TO D2-I 

3710 P=D2+1-I-J 

3720 P=P* (D2+1- (P-1) /2) -I 

3730 R=P-J 

3740 S=0 

3750 U=I+J+1 

3760 V=P 

3770 FOR K=1 TO J 

3780 V=V+U-K 

3790 S=S-Dd (R+K) *Dd (V) 

3800 NEXT K 
3810 Dd (P) =S/Dd (R) 

3820 NEXT J 

3830 NEXT I 

3840 Dd(l)=l/Dd(l) 

3850 GOTO 3090 

3860 PRINT "STASTICS FOR PLOT ";G 
3870 PRINT " " 

3880 IF Pr=l THEN 3920 

3890 S8=SQR( (S2-Sl A 2/Do) / (Do-1) ) 

3900 S9=SQR( (S4-S3 A 2/Do) / (Do-1) ) 

3910 R9= (S5-Sl*S3/Do) / (Do-1) /S8/S9 

3920 PRINT "NUMBER OF POINTS = ";Do 
3930 PRINT " " 

3940 PRINT "X: MEAN = ";Sl/Do;" ";"ST. DEV. =";S8 

3950 PRINT "Y MEAN = ";S3/Do;" ";"ST. DEV. =";S9 

3960 PRINT " " 

3970 PRINT "CORR. COEFF. . = ";R9 

3980 PRINT " " 

3990 PRINT "TABLE FOR PLOT";G 
4000 PRINT " " 

4010 PRINT "X Y CAL Y 

Y-CAL Y" 

4020 E5=0 

4030 FOR M=Scanl TO Scan2 
4040 IF L5=2 THEN 4080 

4050 IF L5=3 THEN 4080 

4060 I=D (Vx, M) 

4070 GOTO 4090 
4080 I=LGT (D (Vx,M) ) 

4090 Y=E (Dl+1) 

4100 FOR J=D1 TO 1 STEP -1 
4110 Y=Y*I+E ( J) 

4120 NEXT J 

4130 IF L5=l THEN 4170 

4140 IF L5=3 THEN 4170 

4150 PRINT USING 4180 ; D (Vx , M) , D (Vy , M) , Y , Y-D (Vy ,M) 


4160 GOTO 4200 

4170 PRINT USING 4190 ; D (Vx, M) , D (Vy ,M) , 10 A Y, D (Vy , M) -10 A Y 

4180 IMAGE 5X,MD. DDDE , 10X,MD. DDDE , 10X, MD. DDDE , 10X,MD. DDDE 

4190 IMAGE 3X, MD. 3DE, 9X,MD. 3DE, 5X,MD. 3DE, 5X,MD. 3DE,DDDDDD. DDD 

4200 IF L5=l THEN 4240 

4210 IF L5=3 THEN 4240 

4220 E4=(D(Vy,M) -Y) A 2 

4230 GOTO 4250 

4240 E4= (D (Vy ,M) -10 A Y) A 2 

4250 E5=E5+E4 

4260 NEXT M 

4270 E6= (E5/ (Do-1) ) A . 5 

4280 PRINT "STD DEV OF Y-Y CAL = ";E6 

4290 PRINT » " 

4300 ! IF Pr=l THEN 3790 

4310 1 GOSUB 10980 NOTE OPTION FOR HARD COPY 

4320 ! IF Pr=l THEN 2700 

4330 ! Pr=0 

4340 ! PRINTER IS 1 

4350 DISP " PLOT THE EQUATION"; 

4360 GOSUB Yesno 

4370 ON R5 GOTO 4390,4700,4350 

4380 i GOTO 4580 

4390 IF L5<2 THEN 4500 

4400 PRINT "INPUT Xmin, Xmax, NUMBER OF POINTS PER DECADE" 

4410 GOSUB Entry 3 

4420 ON R5 GOTO 4430,4400,4400 

4430 Ao=Q2 

4440 Bo=Q3 

4450 C=Q4 

4460 Ao=LGT (Ao) 

4470 Bo=LGT (Bo) 

4480 C=l/C 

4490 GOTO 4560 

4500 PRINT " INPUT Xmin, Xmax, STEP" 

4510 GOSUB Entry3 

4520 ON R5 GOTO 4530,4500,4500 

4530 Ao=Q2 

4540 Bo=Q3 

4550 C=Q4 

4560 PENUP 

4570 FOR I=Ao TO Bo STEP C 

4580 X=I 

4590 Y=E (Dl+1) 

4600 FOR J=D1 TO 1 STEP -1 

4610 Y=Y*X+E ( J) 

4620 NEXT J 

4630 PLOT X, Y, 1 

4640 ! PLOT X, LGT (Y) ,1 

4650 NEXT I 

4660 PENUP 

4670 DISP "is Fit OK"; 

4680 GOSUB Yesno 

4690 ON R5 GOTO 4700,2060,4530 

4700 DISP "WANT SELECTED PRINT OUT"; 

4710 GOSUB Yesno 

4720 ON R5 GOTO 4730,4940,4700 

4730 PRINT "INPUT Xmin, XMax, STEP" 

4740 GOSUB Entry3 

4750 ON R5 GOTO 4760,4730,4730 


4760 Ao=Q2 

4770 Bo=Q3 

4780 C=Q4 

4790 FOR I=Ao TO Bo STEP C 

4800 X=I 

4810 Y=E (Dl+1) 

4820 FOR J=D1 TO 1 STEP -1 
4830 Y=Y*X+E ( J) 

4840 NEXT J 

4850 IF L5=l THEN 4890 

4860 IF L5=l THEN 4890 

4870 PRINT X , Y 

4880 GOTO 4900 

4890 PRINT X, 10 A Y 

4900 NEXT I 

4910 ! IF Pr=l THEN 4460 

4920 I GOSUB Prtdevice !ECK ORIGNAL PROGRAM FOR THIS EFFECT 
4930 ! IF Pr=l THEN 4310 

4940 ! PRINTER IS 1 

4950 GOTO 5010 

4960 DISP " D (P) NEGATIVE Will Reprocess at the next lower Fit"; 

4970 D1=D1-1 

4980 D2=D1 

4990 Second=l 

5000 GOTO 2210 

5010 PRINT J 

5020 RETURN 

5030 " REK ******** ******* **************** ********************* ************ 

5040 REM**************************************************************** 

5050 Yesno: REM yes no sub ********************************************** 
5060 REM****************************** 

5070 REM RETURNS R5 = 1,2 OR 3 

5080 LOOP 

5090 ON KEY 1 LABEL "YES" GOTO 5150 

5100 ON KEY 2 LABEL "" GOTO 5080 

5110 ON KEY 3 LABEL "" GOTO 5080 

5120 ON KEY 4 LABEL "NO" GOTO 5180 

5130 ON KEY 5 LABEL "REPEAT ?" GOTO 5210 

5140 END LOOP 

5150 R5=l 

5160 OFF KEY 

5170 RETURN 

5180 R5=2 

5190 OFF KEY 

5200 RETURN 

5210 R5=3 

5220 OFF KEY 

5230 RETURN 

5240 PFM * ***************************************************** 

5250 Entryl: REM **sub for single entry and check******************** 

5260 REM ***YES NO SUB REQUIRED **************************** 

5270 REM ***RETURNS VALUE OF Q5 **************************** 

5280 DISP " INPUT NUMBER FOR ENTRY 1"; 

5290 INPUT Q5 

5300 BEEP 440, .5 

5310 DISP "Is Input", Q5, "Correct"; 

5320 GOSUB Yesno 

5330 ON R5 GOTO 5380,5340,5300 

5340 BEEP 

5350 DISP "Renter Data" ; 





5360 WAIT 2 
5370 BEEP 
5380 RETURN 

5390 REM**************************************************** 

5400 Entry2: REM sub routine for two numerical entry and check***************** 

**** 

5410 REM****************************************************** 

5420 INPUT Q6,Q7 
5430 BEEP 880, .5 

5440 PRINT "ARE InputsS" , Q6 , Q7 , "Correct" 

5450 GOSUB Yesno 

5460 ON R5 GOTO 5510,5470,5430 

5470 BEEP 

5480 PRINT "Re-input Data" 

5490 WAIT 2 
5500 BEEP 
5510 RETURN 

5520 REM********************************************************* 

5530 Entry3: REM sub routine for three numerical entry and check************** 
**** 

5540 REM********************************************************** 

5550 INPUT Q2,Q3,Q4 
5560 BEEP 220, .5 

5570 PRINT "are Inputs", Q2,Q3,Q4, "Correct" 

5580 GOSUB Yesno 

5590 ON R5 GOTO 5640,5600,5560 

5600 BEEP 

5610 PRINT " Re-Enter Data" 

5620 WAIT 2 
5630 BEEP 
5640 RETURN 

5650 Plotselect: l***************************************************** 

******************* 

5660 ON KEY 1 LABEL "SCREEN" GOTO Crtplot 

5670 ON KEY 2 LABEL "" GOTO 5650 

5680 ON KEY 3 LABEL "" GOTO 5650 

5690 ON KEY 4 LABEL "PLOTTER" GOTO Plotter 

5700 GOTO 5660 

5710 Crtplot:! 

5720 Plotter=3 

5730 PLOTTER IS 3, "INTERNAL" 

5740 RETURN 
5750 Plotter: ! 

5760 Pu=l 

5770 Plotter=705 

5780 DISP "SELECT PEN TO BE USED"; 

5790 INPUT Pen 
5800 PEN Pen 

5810 PLOTTER IS 705,"HPGL" 

5820 RETURN 

5830 Prtdevice : ! **************************************************** 

******************** 

5840 ON KEY 1 LABEL "SCREEN" GOTO Crt 
5850 ON KEY 4 LABEL "PRINTER" GOTO Printer 
5860 GOTO 5840 
5870 Crt: ! 

5880 PRINTER IS 1 
5890 RETURN 
5900 Printer:! 

5910 PRINTER IS 701 


5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6380 

6390 

6400 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6490 

6500 

6510 


RETURN 
End: ! 

PEN 0 

PLOTTER IS 705 , "HPGL" 

PLOTTER IS 3 , "INTERNAL" 

PRINTER IS 1 

END 

SUB Config320 (Program$, Data$) 
CONTROL KBD , 2 ; 1 

DISP 

DISP "SELECT OPTION"; 

LOOP 


ON 

KEY 

1 

LABEL 1 

PROGRAM 

" GOTO 6010 

ON 

KEY 

2 

LABEL ' 

" GOTO 

6030 

ON 

KEY 

3 

LABEL » 

" GOTO 

6030 

ON 

KEY 

4 

LABEL ' 

" GOTO 

6030 

ON 

KEY 

5 

LABEL • 

704,0" 

GOTO PinternalO 

ON 

KEY 

6 

LABEL ' 

704,1" 

GOTO Pinternall 

ON 

KEY 

7 

LABEL ' 

700,0" 

GOTO PhpO 

ON 

KEY 

8 

LABEL 1 

700,1" 

GOTO Phpl 

ON 

KEY 

9 

LABEL • 

DATA" GOTO 6010 

ON 

KEY 

10 

LABEL 

« « GOTO 

6030 

ON 

KEY 

11 

LABEL 

«« GOTO 

6030 

ON 

KEY 

12 

LABEL 

"" GOTO 

6030 

ON 

KEY 

13 

LABEL 

"704,0" 

GOTO DinternalO 

ON 

KEY 

14 

LABEL 

"704,1" 

GOTO Dinternall 

ON 

KEY 

15 

LABEL 

"700,0" 

GOTO DhpO 

ON KEY 16 
END LOOP 
PinternalO 

Pinternall 

LABEL "700,1" GOTO Dhpl 

; 1 

Program$=" : , 704 , 0" 

GOTO End 

« | 

« • 


Progrant$=": ,7 04,1" 
GOTO End 


Phpl: ! 

Program$=" : , 700 , 1" 
GOTO End 
PhpO : ! 

Program$=" : ,700, 0" 
GOTO End 
DinternalO: ! 

Data$=" : ,704,0" 

GOTO End 
Dinternall: ! 

Data$=" : ,704,1" 

GOTO End 
Dhpl: ! 

Data$=": ,700,1" 

GOTO End 
DhpO : ! 

Data$=": ,700,0" 

GOTO End 

End: 1 

BEEP 

Flag=Flag+l 

IF Flag=2 THEN 6530 

DISP 

DISP "SELECT NEXT OPTION"; 
CONTROL KBD , 2 ; 2 


6520 

6530 

6540 

6550 

6560 

6570 

6580 

6590 

6600 

6610 

6620 

6630 

6640 

6650 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 


IF Flag<=l THEN 6030 
DISP 

CONTROL KBD, 2 ; 1 
SUBEND 

SUB Config36 (Program$, Data$) 
DISP 

CONTROL KBD , 2 ; 1 
DISP "SELECT OPTION"; 

LOOP 


ON 

KEY 

0 

LABEL 

"PROGRAM" GOTO 6590 

ON 

KEY 

1 

LABEL 

"INT, 0" 

GOTO 

PinternalO 

ON 

KEY 

2 

LABEL 

"INT, 1" 

GOTO 

Pinternall 

ON 

KEY 

3 

LABEL 

"700,0" 

GOTO 

P7000 

ON 

KEY 

4 

LABEL 

"700,1" 

GOTO 

P7001 

ON 

KEY 

5 

LABEL 

"DATA " 

GOTO 

6600 

ON 

KEY 

6 

LABEL 

"INT, 0" 

GOTO 

DinternalO 

ON 

KEY 

7 

LABEL 

"INT, 1" 

GOTO 

Dinternall 

ON 

KEY 

8 

LABEL 

"700,0" 

GOTO 

D7000 

ON 

KEY 

9 

LABEL 

"700,1" 

GOTO 

D7001 


END LOOP 
PinternalO: ! 

Program$=" : INTERNAL4 , 0" 
GOTO Subend 
Pinternall: i 

Program$=" : INTERNAL4 , 1" 
GOTO Subend 

P7000; Program$=": ,700,0" 

GOTO Subend 
P7001: ! 

Program$=" : ,700,1" 

GOTO Subend 
DinternalO: ! 

Data$=" ; INTERNAL4 , 0" 

GOTO Subend 

Dinternall: ! 

Data$=" : INTERNAL, 4,1" 

GOTO Subend 

D7000 : Data$=": ,700,0" 

GOTO Subend 

D7001; ! 

Data$=" ; ,700,1" 

GOTO Subend 

Subend: ! 

BEEP 

Flag=Flag+l 

IF Flag=2 THEN 7010 

DISP 

DISP "SELECT NEXT OPTION"; 

IF Flag<=l THEN 6600 

PRINT "PROGRAM MSI IS ";Program$ 

PRINT "DATA MSI IS ";Data$ 

SUBEND 


ATTACHMENT D 


- SUMS SOFTWARE LISTING 


(8) PRTALOGI 


/ 


10 ! RE-STORE "PRTALOGI" 

20 OPTION BASE 1 

30 ! REVID 9/3/91 RJD 
40 GCLEAR 

50 WINDOW 170,80,0,100 

60 FOR 1=0 TO 100 STEP 10 

70 MOVE 80,1 

80 DRAW 170,1 

90 NEXT I 

100 Mina=109 

110 Maxa=165 

120 Stepa=-1 

130 PRINT " 

140 PRINT " 

150 PRINT "ALT 144 

118" 

160! PRINT "ALT 122 

170 Sens28=l. 4E-7 
180 Sens44=l. 06E-7 
190 Sens30=1.4E-7 


/» - 



DATA FROM STS 

35" 


SNAP 

SHOT CURRENTS 

RANGE OPEN 

it 

140 

132 

130 

128 

120 

116 

114 

112" 


200 FOR A=Maxa TO Mina STEP Stepa 
210 IF A<120 THEN Eq2 

Logi44=-3. 3 999694 3 839E-6*A A 3+. 00164259720176*A A 2- . 272637024 112 *A-11. 0717288 

Logi40=-6. 67822971862E-6*A A 3+. 0028862 34 67882*A A 2-. 4 3 3767484 066*A-3. 70674905 

Logi32=-l . 10876844076E-5*A A 3+. 00467169679857*A A 2-. 674 4 92 9 63 9 02 *A+7 .93394275 
Logi30=-1. 076007971E-6*A A 3+. 0004 89 8 105758 09*A A 2-. 08 4 3 684 7 057 13 *A-2 2 .9616362 
Logi28=-9.53710056129E-6*A A 3+.00415757698479*A A 2-.62197709355*A+9. 155199974 
Logi22=7 . 2 000782846E-6*A A 3- . 003 353 00363792*A A 2+. 500149104658*A-54 .3 2773799 0 
Logi20=-1 . 4 118873 699 7E-5*A A 3+ . 006079 03 156466*A A 2- . 889897632 1*A+16 .325499812 
Logil8=9 . 04196416696E-7*A A 3-. 0003 63 2 57 332 3 22 *A A 2+. 045353 3 532 582 *A-27 .201773 
Logil6=-2 . 36433648172E-6*A A 3+. 00105863374465*A A 2-. 166055873446*A-17 . 7450328 
Logil4=-l . 0889114 0566E-5*A A 3+. 00471523371911*A A 2-. 69 97 2 67 9 62 4 6 *A+ 10 .0488725 
Logil2=-5. 957562 66753E-6*A A 3+ . 0027662 0878653*A A 2- . 43 4 15501172 5*A-5. 96756024 

GOTO Curr 
340 Eq2: ! 

350 IF A<112 THEN Eq3 

360 Logi44=-. 000479029457086*A A 3+. 17 04 8 69 17 5 67 *A A 2 -20. 2 59 164 4 8 18 *A+7 7 7 .84270777 

370 Logi40=- . 00094 3 54 597 7 077 *A A 3+ . 3 351971483 31*A A 2-39 . 7 3 056 18 07 9 *A+ 154 5 .5426021 

8 

380 Logi32=-. 001650393146*A A 3+. 584387170142*A A 2-69 . 014498 194 9 *A+ 2 69 3 .56074748 

390 Logi30=- . 000577538096026*A A 3+ . 206742980466*A A 2-24 . 6816402241*A+954 .81509290 
4 

400 Logi28=-. 0010 11982 6749 2 *A A 3+ • 3 59 19 8 6 69 64 4 *A A 2 -4 2 . 5397295668*A+1658 .92134108 

410 Logi22=-. 00280091073415*A A 3+. 974748470492*A A 2-113 . 103209836*A+4346 . 06575581 

420 Logi20=- . 00 12 8 17519 9 3 74 *A A 3+ . 453828729657*A A 2-53 . 5970196343 *A+2 084 .04800697 
430 Logil8=-. 00014 3 693 08 119*A A 3+. 0501038958581*A A 2-5 . 82756687753 *A+2 00. 68314034 

4 

440 Logil6=-. 0008 3 578960272 6*A A 3+ . 29652 0999279 *A A 2 -3 5 . 087 69 63 613 *A+13 58 .3715889 

6 


220 

425 

230 

086 

240 

146 

250 

498 

260 

05 
270 

6 

280 

7 

290 

6885 

300 

67 

310 

073 

320 

762 

330 



^2^oI’S^if« 73097072 * AA3_ - 702337561463 *A A2 + 7 5.7197619894*A-2735. 54441395 
0037506193 6178 *A A 3-1. 2 3 8558 3 0426*A A 2+136 . 054998055*A-4995 . 218508 67 
T Og ^B - 'SS 25590466203 * AA3_,831917942254 * AA2+89 - 9774 lll 7 45*A-3264 72206927 
r jOg x28=.0046 591 3 21361 * AA3 - 1 . 53955ii2i3 *AA2 + i6 9 .333569617*A-6220 473954 

T , ° g t^nZ’ 8892 554 503 253 2 * AA 3-3 • ° 054 l° 2 58 44 *A A 2+324 . 984546687*A-11731^0718179 
P° g f 2 Q - *°i 4003906829 * AA3 “ 4 ‘ 62869597088 *A A2 + 509 . 69 8513991*A-18725 1264197 

Logil8=.00349770116752*A-3-1.15977400803*A-2+128.154176332*A-4744 46736?15 

T LOg ^:*°Si 1375699743 * AA3 -- 360679230384 *A-2 + 37.8541376557*A-1339 62285^29 
Logil4 . 0004 5844 8 1698 79 *A A 3+ . 1 6532917788 1*A A 2 -19 . 9 7 67 94 8 19 9 *A+7 8 3 .39176109 

Logil2=-.000200450909363*A A 3+.0877678391545*A A 2-12.2143693232*A+520. 6017177 


450 Logil4=-.00126640904043*A A 3+.448645768976*A A 2-53.0199311996*A+2065 42156084 

482744702476 * A ' 3+ - 1744621883 5 * A ^-21-O351370l7!4 + 8?7 4«854947 

480 Eq3 : ! 

490 Logi44=- . 00 013 9 8 164 5 6679 *A A 3+ . 069 921 061122 3*A A 2-10 . 5000122443 *A+4 69 .7496786 

500 
510 
520 
530 
540 
550 
560 
570 
580 
2 

590 
6 

600 Curr: I 
610 I44=EXP (Logi44 ) 

Di44=I44-Ti44 
Ti44=I44 
I40=EXP (Logi40) 

Di40=I40-Ti40 
Ti40=I40 
I32=EXP(Logi32) 

Di32=I32-Ti32 
Ti32=I32 
I30=EXP(Logi30) 

Di30=I30-Ti3 0 
Ti30=I30 
I28=EXP(Logi28) 

Di28=I28-Ti28 
Ti28=I28 
I22=EXP(Logi22 ) 

Di22=I22-Ti22 
Ti22=I22 
I20=EXP(Logi20) 

Di20=I20-Ti20 
Ti20=I20 
I18=EXP(Logil8) 

Dil8=I18-Til8 
Til8=I18 
I16=EXP(Logil6) 

Dil6=I16-Til6 
Til6=I16 
I14=EXP(Logil4) 

Dil4=I14-Til4 
Til4=I14 
I12=EXP(Logil2) 

Dil2=I12-Til2 
Til2=I12 

950 !^nl32=5!E-8 9112424E " 8 * (1 " EXP( ‘ 8 ‘ 8226728671E+10 * I32))+2 - 8884202633E - 8 
960 1 NOTE BKG VALUE AT 170 KM 

Bkg44=2 . 66E-12 
Bkg40=2 . 19E-12 
Bkg32=4 . 22E-12 
1000 Bkg30=4 . 47E-13 
1010 Bkg28=7 . 73E-11 


620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 


970 

980 

990 




1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

t 


Bkg22=4 . 08E-14 
Bkg20=3 . 65E-13 
Bkgl8=8 . 03E-12 
Bkgl6=l. 89E-12 
Bkgl4=4 . 47E-13 
Bkgl2=2 . 30E-13 

1 GOTO Bypassbkg 

I44=I44-Bkg44 
I40=I40-Bkg40 
I32=I32-Bkg32 
I30=I30-Bkg30 
I28=I28-Bkg28 
I22=I22-Bkg22 
I20=I20-Bkg20 
I18=I18-Bkgl8 
I14=I14-Bkgl4 
112=112 -Bkgl2 
Bypassbkg : 1 
P44=I44/Sens44 
Dp44=Di44/Sens44 
P32=I32/Sens32 
Dp32=Di32/Sens32 
P28= (I28-. 28*144) /Sens 2 8 
Dp28= (Di28- . 28*Di44 ) /Sens28 
P40=. 013*P28 
Dp40= . 013 *Dp28 
P30=I30/Sens30 
Dp30=Di30/Sens30 
Pt=P44+P40+P32+P30+P28 
Dpt=Dp4 4+Dp4 0+Dp3 2+Dp3 0+Dp2 8 
! NOTE ABOVE VALUES AT 170 KM 

p“N?Ss?^l33oS^io?i?“L 3 o:?28??f8 3X ' MD - DDE ' 3X ' MD - DDE ’ 3X ' MD - DDE 

PRINT USING 1 3 3 0 ; A , P4 4 , P4 0 , P3 2 , P3 0 , P2 8 , Pt 

PRINT USING 1330 ; A, P44*100/Pt , P40*100/Pt , P32*100/Pt , P30*100/Pt , P28*100/Pt , P 


* 3 7° USING 1330 » A, Dp44 , Dp4 0 , Dp32 , Dp30 , Dp28 , Dpt 

iloS/Dp^Dpt SING 1330 ;A ' ^p4 4 *10 0/Dpt, D p4 0* 1 °°/ D p t / Dp32*100/Dpt , Dp3 0*10 0/Dpt , Dp2 8 
13901 PRINT USING 680 ; A, 122 , 120 , 116 , 114 , 112 

1400!PRINT 8 USING e 680 ; A, 144-2 . 66E-12 , 140-2 . 19E-12 , 132-4 . 22E-12 , 130-4 . 47E-13 ,128-7 


1410! PRINT USING 640 ;A, 122-4 . 08E-14 , 120-3 
2.30E-13 1 PRINT MINUS BKG AT 170KM 

1420 LORG 5 
1430 CSIZE 3 

1440 MOVE A, Dp4 4 *10 0/Dpt 
1450 LABEL "*" 


65E-13, 116-1. 89E-12 , 114-4 . 47E-12 ,112- 


1460 MOVE A, Dp40*100/Dpt 
1470 LABEL "a" 

1480 MOVE A, Dp32*100/Dpt 
1490 LABEL "o" 


1500 MOVE A, Dp28*100/Dpt 
1510 LABEL "N" 

1520 IF INT (A/10) =A/10 THEN 

1530 MOVE A, 95 

1540 LABEL A 

1550 ELSE 

1560 END IF 

1570 NEXT A 



1580 Ti44=0 
1590 Ti40=0 
1600 Ti32=0 
1610 Ti30=0 
1620 Ti28=0 
1630 Ti22=0 
1640 Ti20=0 
1650 Til8=0 
1660 Til6=0 
1670 Til4=0 
1680 Til2=0 
1690 Mina=87 
1700 Maxa =103 
1710 Stepa=-1 
1720 PRINT 
1730 PRINT " 
1740 PRINT " 
1750 PRINT ’’ALT 
118" 

1760! PRINT "ALT 


/-* / c> 


- V 


144 

122 


DATA FROM STS 35" 

SNAP SHOT CURRENTS RANGE CLOSED 
140 132 130 


128 


1770 FOR A=Maxa TO Mina^STEP Stepa I2 ° 116 114 112 " 

T 7 Qn t F *aa 7 THEN Eq4 1 VALUE BETWEEN 103 AND 97 

^’° g ^ 44 * s ~ ' 003 60542514 522 *A A 3+1 . 11575792 3 89 *A A 2-115 . 103295473 *A+393 1 . 77695082 
1800 Logi40- • 0002 39174 017114 *A A 3+, 0849132442254*A A 2—9 • 88258177856*A+351 . 5889584 

I860 00011179900484 1*A~ 3+ . 0341875503004*A A 2— 3?47589961^84*A+92?i6551331 

“80 Lo!il4=~00115550300212*A^3 - + 3 34 185377593 *a^2+3? 6 0 7 *6097197 

1890 Logil2=-.00750282665275*A-3+2 3 271598243n5iaAt 3 o;Q 3 i 9713747 * A “ 1043 ' 21051237 

1900 GOTO Curr 2 J+2 . 27159824302*A A 2-229 . 259092551*A+7683 . 8425057 

1910 Eg 4 : ! 

H| 2 ° r F ^ ™ EN Eq5 1 BETWEEN 97 AND 91 

1940 Logi40=. 00557819368324 *A*3-1 * 57 5658 61017 *A^ 2+148 * 98 55954 53 9 * A+2 2 74 • 2 82 07 09 
1950 Logi32=-.00525080067453*A^3+i 5 4554474656fi^AAt 1 f!: 01 jl 52559 * A " 4649 - 468127 38 
I960 Logi30=.0105084338565*A A 3-2.94601976838*|AJ.^A 34 :!? 7664042 * A+4136 * 53 °54556 

1970 Logi28=-.00218357214495*A^3+?60319146fifi?B*ato 7 fc 8 f? 222559 * A " 8559 - 992046 
1980 Logi22=-. 0 03 9 072 3 3 0180 3 *A A 3+1 07209303 TD^*iao"*qq * a 178480622 * a+1708 • 68086232 
1990 Logi20=. 000176373 05984 1*A A 3—. 0596713555816^A A 2+6 *21859548953*A—23o! 84665958 

2000 Logil8=8.99233060069E-6*A A 3-.00063626922976*A A 2-.125463123043*A-15. 41182924 

2020 Logll4— . 00521106544876 *A 73 +l' 44548824777 «A 72 2 i 33 ' 9 ?n 79957 8 3 * A+ 7 2 1 - 87337065 
2040 GOT 0 2 Curr 2° 2,792 ^ 9 ^ 2337 *^ A3 + * ^0441216064*A^2-68 2 6230884294*A+2065?i4579861^ 
2858 f * 35 ** 1 VALUE BETWEEN 91 AND 87 

2070 Logi40=.*0003223190979i*A-3-‘0970907568585JA 2 o 2 Q' 3151183993 * A " 898 * 568511842 
2080 Logi32=.00149125285854*A^-'40l86997i?l?*^: 2 : 9 *f E ? 53866259 * A - 324 - 29323 559 
2090 Logi30=-. 002 92 62 4 65 64 78 *A A 3+ 754 0758 0507 fi*AAt 3 *l 9 I?~ 98867 * A ~ 1093 * 87582213 

2100 Logi 28 =. 00118390156558*A A 3-. 3 19857194 552 *A^ 2 + 28 ^ 6474 866787 *A- 87 i? 560101939 9 


2110 

2120 

236 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 


Logi20=-4 ?58528286278E-5*A~3+^00697539950^42*A^2-?313764444^37*A-20?8472311 

Logxl2=.00435824126772*A^3-1.16451528267*A^+T^ 2 lQZDf^ 508 * A+4228 ' 06925078 

Curr2 : J J..J.t>4:>li>28267*A- 2+103. 494897226*A-3084. 73171116 

I44=EXP(Logi44) 

Di44=I44-Ti44 

Ti44=I44 


2210 I40=EXP(Logi40) 
2220 Di40=I40-Ti40 
2230 Ti40=I40 
2240 I32=EXP(Logi32 ) 
2250 Di32=I32-Ti32 
2260 Ti32=I32 
2270 I30=EXP ( Logi 3 0 ) 
2280 Di30=I30-Ti30 
2290 Ti30=I30 


2300 I28=EXP(Logi28) 
2310 Di28=I28-Ti28 
2320 Ti28=I28 
2330 I22=EXP(Logi22) 
2340 Di22=I22-Ti22 
2350 Ti22=I22 
2360 I20=EXP(Logi20) 
2370 Di20=I20-Ti20 
2380 Ti20=I20 
2390 X18=EXP (Logil8 ) 
2400 Dil8=I18-Til8 
2410 Til8=I18 
2420 I16=EXP(Logil6) 
2430 Dil6=I16-Til6 
2440 Til6=I16 
2450 I14=EXP(Logil4) 
2460 Dil4=I14-Til4 
2470 Til4=I14 


2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

t 

2680 


I12=EXP(Logil2) 

Dil2=I12-Til2 

Til2=I12 

P44=I44/7.*65E-10 DDDE,3X/MD ‘ DDE,3X ' MD * DDE ' 3X,MD * DDE ' 3X / md *DDE / 3X,MD.DDE 
Dp44=Di44/7 . 65E-10 

P32=I32/Sens32 11 ^^^ 4E ~^* (1-EXP( “ 8 • 822 6728 671E+10*I32) ) +2 . 8884202633E-8) /140 
Dp32=Di32/Sens32 
P30=I30/1.04E-9 
Dp30=Di30/l . 04E-9 
P28=I28/1. 04E-9 
Dp28=Di28/l . 04E-9 
P40=. 013*P28 
Dp40=. 013*Dp28 
Pt=P44+P40+P32+P30+P28 

Dpt=Dp4 4 +Dp4 0+Dp3 2+Dp3 0+Dp2 8 

*5? S3 

PRINT USING 2510;A, P44*100/Pt , P40*100/Pt, P32*100/Pt , P30*100/Pt, P28*100/Pt, P 

PRINT OSING 2510 ; A, Op44 , Dp40, Dp32 , Dp30 , Dp2S , Dpt 



2690 PRINT USING 2510 ; A, Dp4 4* 100/Dpt, Dp40*100/Dpt , Dp32*100/Dpt , Dp30*100/Dpt Dd 28 
*100/Dpt , Dpt e * 

27001 PRINT USING 640 ?A, 122 , 120 , 116 , 114 , 112 
2710 MOVE A, Dp44*100/Dpt 
2720 LABEL "*" 

2730 MOVE A, Dp4 0* 100/Dpt 
2740 LABEL '•a 11 
2750 MOVE A, Dp3 2 *10 0/Dpt 
2760 LABEL "o" 

2770 MOVE A, Dp28*100/Dpt 
2780 LABEL "N" 

2790 IF INT (A/10) =A/10 THEN 

2800 MOVE A, 95 

2810 LABEL A 

2820 ELSE 

2830 END IF 

2840 NEXT A 

2850 END 
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